Search found 36 matches

by smbstarv
Sun Nov 28, 2021 4:49 pm
Forum: BASIC programs
Topic: Mastermind Player
Replies: 0
Views: 15
Flag: Netherlands

Mastermind Player

'y' REM **** MASTERMIND to PLAY ***** by smbstarv IF DEVICE_TYPE$()<>"iPad" THEN PRINT "for iPad only" STOP END IF SET ORIENTATION 2 makkelijk=1 'alleen verschillende kleuren maxattempts=12 SET TOOLBAR OFF init: OPTION BASE 0 GRAPHICS CLEAR GOSUB beeld SPRITE "ptr" BEGIN 30,30 FILL COLOR 0,0,0 FILL ...
by smbstarv
Thu Nov 25, 2021 10:11 am
Forum: BASIC programs
Topic: Hanoi Tower to Go
Replies: 1
Views: 23
Flag: Netherlands

Hanoi Tower to Go

'y' REM ****Hanoi Tower Play ***** by smbstarv IF DEVICE_TYPE$()<>"iPad" THEN PRINT "for iPad only" STOP END IF SET ORIENTATION 2 i1: 'setup buttons en sprites GRAPHICS SET TOOLBAR OFF SET BUTTONS CUSTOM FILL COLOR 1,1,1 DRAW COLOR 0,0,0 REFRESH OFF FOR i=2 TO 9 BUTTON i TEXT STR$(i)&" disks" AT 450...
by smbstarv
Sun Nov 14, 2021 12:44 pm
Forum: BASIC programs
Topic: A simple Spiroplayer
Replies: 0
Views: 64
Flag: Netherlands

A simple Spiroplayer

REM***** a simple spiroplayer ***** smbstarv SET ORIENTATION 2 GRAPHICS GRAPHICS CLEAR 0,0,0 mx=SCREEN_WIDTH()/2 'midscreen coordinates my=SCREEN_HEIGHT()/2 OPTION ANGLE DEGREES ra=300 'init radius outerwheel a rb=70 'init radius innerwheel b di=50 'drawing point, init distance TO CENTRAL point of i...
by smbstarv
Thu Nov 11, 2021 6:35 pm
Forum: BASIC programs
Topic: Spirograph
Replies: 4
Views: 3282
Flag: Netherlands

Re: Spirograph

I'm sorry about my previous comment, as it is wrong. I shouldn't have it submitted. Still I have a problem with the calculation of the coordinates of the spirals, as generated. In the program the ratio is stated between the angular speeds of the inner and outer circles, named theta and alfa respecti...
by smbstarv
Wed Nov 10, 2021 10:25 am
Forum: BASIC programs
Topic: Spirograph
Replies: 4
Views: 3282
Flag: Netherlands

Re: Spirograph

I programmed a spirograph the other day, just before I found out you did this already in 2013 !
However I found the addition of " -alfa " in the second terms is more precise...
X=....*cos(alfa)+.....*cos(theta-alfa)
Y=....*sin(alfa)+.....*sin(theta-alfa)
Anyway the emerging drawings remain fun !
by smbstarv
Mon Oct 25, 2021 11:08 am
Forum: BASIC programs
Topic: Simple midi player
Replies: 3
Views: 157
Flag: Netherlands

Re: Simple midi player

Of course !
by smbstarv
Mon Oct 25, 2021 10:05 am
Forum: BASIC programs
Topic: Simple midi player
Replies: 3
Views: 157
Flag: Netherlands

Re: Simple midi player

Henko, thanks.
Please accept my midi homework.
Smbstarv
by smbstarv
Wed Jul 21, 2021 8:07 am
Forum: BASIC programs
Topic: Emerging Ellipse
Replies: 0
Views: 374
Flag: Netherlands

Emerging Ellipse

REM*****edited by INDENTATOR 2.0 on 21-7-2021 /* Draw many lines from an arbitrary point... in a circle to its circumference. Rotate each by 90 degrees around its centre. What emerges is a perfect ellipse. (from: Feynman's lost lecture) */ SET ORIENTATION LANDSCAPE SET BUTTONS FONT SIZE 40 BUTTON ">...
by smbstarv
Fri Jul 02, 2021 2:49 pm
Forum: BASIC programs
Topic: My Troubled Clock
Replies: 1
Views: 327
Flag: Netherlands

My Troubled Clock

REM *********TROUBLED CLOCK*************** REM *** tap screen to exit ****** REM *** ©RWS *** AAA: SET TOOLBAR OFF sw=SCREEN_WIDTH() sh=SCREEN_HEIGHT() DIM months$(13) DIM days$(8) DATA "jan","feb","mrt","apr","may","jun","jul","aug","sep","oct","nov","dec" DATA " sunday"," monday","tuesday","wednes...
by smbstarv
Thu Jun 10, 2021 4:29 pm
Forum: Other topics
Topic: HELP ! V5.9 and iOs 14.6
Replies: 6
Views: 636
Flag: Netherlands

Re: HELP ! V5.9 and iOs 14.6

Ok. Thank you.