Toot

Written by Hugo Mills on 2024-08-24 at 23:18

@UncleClive

10 LET x=128: LET y=88

20 LET r=INT (RND*4)

30 IF r=0 THEN GO SUB 300

40 IF r=1 THEN GO SUB 400

50 IF r=2 THEN GO SUB 500

60 IF r=3 THEN GO SUB 600

70 PLOT x,y

80 GO TO 20

300 LET tx=x120/175+y30/175+20

310 LET y=x*-30/175+y*130/175+40

320 LET x=tx

330 RETURN

400 LET tx=y*-60/175+70

410 LET y=x*50/175

420 LET x=tx

430 RETURN

500 LET tx=y*60/175+70

510 LET y=x*50/175

520 LET x=tx

530 RETURN

600 LET tx=70

610 LET y=x50/175+y50/175

620 LET x=tx

630 RETURN

=> More informations about this toot | View the thread | More toots from darkling@mstdn.social

Mentions

=> View UncleClive@botsin.space profile

Tags