Search found 665 matches

by Henko
Sat Oct 04, 2025 10:18 am
Forum: BASIC programs
Topic: Sierpinsky fractal (re-coded)
Replies: 0
Views: 82
Flag: Netherlands

Sierpinsky fractal (re-coded)

I like compact program code. Here is Sierpinsky’s fractal by Dalede in the Examples directory. ' Sierpinski fractal maker ' by Dalede (re-coded by Henko) graphics ! get screen size sw,sh ! sc=screen_scale() sw*=sc ! sh*=sc ! x=sw/2 ! y=sh/2 for count=1 to 200000 r=rnd(3) ! x=(x+r*sw/2)/2 ! y=(y+even...
by Henko
Wed Sep 10, 2025 2:57 pm
Forum: BASIC programs
Topic: Collect some nice pictures (iPads and iPhones)
Replies: 3
Views: 382
Flag: Netherlands

Re: Collect some nice pictures (iPads and iPhones)

IMG_1351.png graphics ! graphics clear .8,.8,.8 ! draw color 0,0,0 get screen size sw,sh m=15 ! w=floor((sw-3*m)/2) ! h=floor((sh-3*m)/2) draw text "touch any pict to change it" at 10,300 ! pause 2 graphics clear .8,.8,.8 for k=1 to 4 art(m+(w+m)*even(k),m+(h+m)*floor(k/2.1),w,h) next k while(1) ar...
by Henko
Wed Sep 10, 2025 2:36 pm
Forum: BASIC programs
Topic: Collect some nice pictures (iPads and iPhones)
Replies: 3
Views: 382
Flag: Netherlands

Re: Collect some nice pictures (iPads and iPhones)

IMG_1351.png graphics ! graphics clear .8,.8,.8 ! draw color 0,0,0 get screen size sw,sh m=15 ! w=floor((sw-3*m)/2) ! h=floor((sh-3*m)/2) draw text "touch any pict to change it" at 10,300 ! pause 2 graphics clear .8,.8,.8 for k=1 to 4 art(m+(w+m)*even(k),m+(h+m)*floor(k/2.1),w,h) next k while(1) ar...
by Henko
Wed Sep 10, 2025 11:18 am
Forum: BASIC programs
Topic: Collect some nice pictures (iPads and iPhones)
Replies: 3
Views: 382
Flag: Netherlands

Collect some nice pictures (iPads and iPhones)

IMG_1351.png graphics ! graphics clear .8,.8,.8 ! draw color 0,0,0 get screen size sw,sh m=15 ! w=floor((sw-3*m)/2) ! h=floor((sh-3*m)/2) draw text "touch any pict to change it" at 10,300 ! pause 2 graphics clear .8,.8,.8 for k=1 to 4 art(m+(w+m)*even(k),m+(h+m)*floor(k/2.1),w,h) next k while(1) ar...
by Henko
Tue Sep 09, 2025 3:08 pm
Forum: BASIC programs
Topic: Yet another clock
Replies: 7
Views: 891
Flag: Netherlands

Re: Yet another clock

Hi, In this code block: if m5=0 then highlight(.uur(u),22,0,0) if m5=5 then highlight( 2,5,.uur(u),0) if m5=10 then highlight(3,5,.uur(u),0) if m5=15 then highlight(6,8,.uur(u),0) if m5=20 then highlight(3,4,7,.uur(u1)) if m5=25 then highlight(2,4,7,.uur(u1)) if m5=30 then highlight(7,.uur(u1),0,0) ...
by Henko
Mon Sep 08, 2025 5:44 pm
Forum: BASIC programs
Topic: Yet another clock
Replies: 7
Views: 891
Flag: Netherlands

Re: Yet another clock

Hi, This conversion from a Dutch version into an English version is not only a translation from Dutch words into their English equivalents. There is also a syntactic difference in the way that an actual time is textually expressed. In English, all spoken times refer to either the current hour, or th...
by Henko
Mon Sep 01, 2025 10:34 am
Forum: BASIC programs
Topic: Yet another clock
Replies: 7
Views: 891
Flag: Netherlands

Yet another clock

Indeed, yet another clock. IMG_1347.jpeg I saw it while visiting some bridge friends, and felt an iressistible urge to program it in SB. IMG_1345.png Here it is, be it the Dutch version. The clock displays the time with text, in 5-minute intervals. The minutes within the 5-minute interval are displa...
by Henko
Sun Aug 17, 2025 1:08 pm
Forum: BASIC programs
Topic: Game of Hamurabi (modified)
Replies: 1
Views: 518
Flag: Netherlands

Game of Hamurabi (modified)

I played this old game again a couple of times, and made some modifications. The number of periods has been augmented from 10 to 15 ‘years’, mainly to provide more time to recover from the nasty disasters that may happen each year (loss of citizens due to the plague, loss of fertile ground to the El...
by Henko
Sat Jul 05, 2025 2:00 pm
Forum: BASIC programs
Topic: Simplified “Automaton” function
Replies: 0
Views: 18488
Flag: Netherlands

Simplified “Automaton” function

IMG_1325.png Some years ago, i posted a graphics pprogram called “Automaton” See: https://nitisara.ru/forum/viewtopic.php?t=2335 . I simplified it into a little function, which may be called in any (graphics) program with some spare space on the screen. graphics ! graphics clear .8,.8,.8 ! draw col...
by Henko
Tue Jun 10, 2025 10:20 pm
Forum: BASIC programs
Topic: Spaces generator
Replies: 3
Views: 5263
Flag: Netherlands

Re: Spaces generator

Done it!. Thanks.