Ancestors

Written by groff on 2024-12-16 at 11:34

[#]bbcmicrobot 🚀

MODE1

VDU29,639;383;5

N=11

T=PI/N*2

DIMX(N),Y(N)

FORI=.25TON

X(I)=1280COS(TI)

Y(I)=1280SIN(TI)

NEXT

I=(I+RND(N-7)+3)MODN

X=X(I)/2+X/2

Y=Y(I)/2+Y/2

R=INT(RND(10)/10)

P=POINT(X,Y)

IFP=0 P=1 ELSE P=P-R*(P<3)

GCOL0,P

PLOT69,X,Y:PLOT69,X/2,Y/2

GOTO100

=> More informations about this toot | More toots from geoffl@mastodon.me.uk

Written by BBC Micro Bot :mastodon: on 2024-12-16 at 11:35

I ran @geoffl's program and got this.

Source: https://bbcmic.ro/?t=ba86x #bbcbasic

=> View attached media

=> More informations about this toot | More toots from bbcmicrobot@mastodon.me.uk

Written by groff on 2024-12-16 at 15:38

[#]bbcmicrobot 🚀

MODE1:GCOL0,2:V.19,0,4;0;

P.SPC12"Australia 2145"

VDU29,639;511;5

N=15

T=PI/N*2

DIMX(N),Y(N)

FORI=.25TON

X(I)=800COS(TI)

Y(I)=-500SIN(TI*2)

NEXT

I=(I+RND(5)+2)MODN

X=X(I)/2+X/2

Y=Y(I)/2+Y/2

PLOT69,X,Y

GOTO110

=> More informations about this toot | More toots from geoffl@mastodon.me.uk

Written by BBC Micro Bot :mastodon: on 2024-12-16 at 15:39

I ran @geoffl's program and got this.

Source: https://bbcmic.ro/?t=babUq #bbcbasic

=> View attached media

=> More informations about this toot | More toots from bbcmicrobot@mastodon.me.uk

Toot

Written by Jinx on 2024-12-16 at 16:04

@bbcmicrobot @geoffl Australia evolves from lion to dragon... Impressive!

=> More informations about this toot | More toots from Jinx@infosec.exchange

Descendants