Conversation

Notices

1. Embed this notice
   r_labibov (rlabibov@twiukraine.com)'s status on Saturday, 26-Aug-2023 02:26:21 JST r_labibov

   • BBC Micro Bot :mastodon:

   @bbcmicrobot
   #bbcmicrobot 🚀 MODE 1
   R=100
   FOR n=1 TO 6
   FOR d=1 TO 5
   XC=n*200-50
   YC=1024-(d*200-80)
   M=d*180*(1-((n AND 1)+(d AND 1)=1))
   FOR I=0 TO M STEP 4
   S=R*COSRAD(n*I/d)
   PLOT4-(I>0),XC+S*COSRAD(I),YC+S*SINRAD(I)
   NEXT
   NEXT,

   • Embed this notice
     BBC Micro Bot :mastodon: (bbcmicrobot@mastodon.me.uk)'s status on Saturday, 26-Aug-2023 02:26:07 JST BBC Micro Bot :mastodon:

     in reply to

     I ran @RLabibov's program and got this.
     Source: https://bbcmic.ro/?t=8mq8e #bbcbasic

   • Embed this notice
     r_labibov (rlabibov@twiukraine.com)'s status on Saturday, 26-Aug-2023 02:26:15 JST r_labibov

     in reply to

     • BBC Micro Bot :mastodon:

     @bbcmicrobot
     #bbcmicrobot R%=500
     MODE1
     VDU19,1,5;0;29,640;512;
     MOVE0,0
     GCOL32,1
     FORI%=0TO540STEP4
     MOVE0,0
     S=R%*COS(5*RAD(I%)/3):S=S*(1+.1*(ABS(S)/R%>.9))
     PROCC(85,S,I%)
     NEXT
     GCOL0,3
     FORI%=0TO360STEP45
     PROCP(R%*.2,I%)
     PROCP(R%*.3,I%+22)
     NEXT
     MOVE640,0
     VDU5
     DEFPROCC(k%,R,I%):PLOTk%,R*COSRAD(I%),R*SINRAD(I%):ENDPROC
     DEFPROCP(R,I%):MOVE0,0:PROCC(5,R,I%):PLOT&99,12,12:ENDPROC

     Annika Backstrom repeated this.
   • Embed this notice
     BBC Micro Bot :mastodon: (bbcmicrobot@mastodon.me.uk)'s status on Saturday, 26-Aug-2023 02:26:17 JST BBC Micro Bot :mastodon:

     in reply to

     I ran @RLabibov's program and got this.
     Source: https://bbcmic.ro/?t=8mq7h #bbcbasic

   • Embed this notice
     r_labibov (rlabibov@twiukraine.com)'s status on Saturday, 26-Aug-2023 02:26:18 JST r_labibov

     in reply to

     • BBC Micro Bot :mastodon:

     @bbcmicrobot
     #bbcmicrobot MODE1
     VDU29,640;512;5,19,1,5;0;
     DIMS(360):FORI%=0TO90:S(I%)=SINRAD(I%):S(180-I%)=S(I%):S(I%+180)=-S(I%):S(360-I%)=-S(I%):NEXT
     n%=6
     d%=5
     M%=d%*180*(1-((n%AND1)+(d%AND1)=1))
     FORI%=0TOM%STEP4
     G%=500*FNCz(n%*I%/d%)
     PLOT4-(I%>0),G%*FNCz(I%),G%*FNSz(I%)
     NEXT
     FORJ%=0TO4
     GCOLJ%*16,1
     G%=80+J%*100
     FORI%=15*(J%MOD2)TO360STEP30
     PLOT&85,G%*FNCz(I%),G%*FNSz(I%)
     NEXT,
     DEFFNSz(K%):=S(K%MOD360)
     DEFFNCz(K%)=FNSz(K%+90)

   • Embed this notice
     BBC Micro Bot :mastodon: (bbcmicrobot@mastodon.me.uk)'s status on Saturday, 26-Aug-2023 02:26:20 JST BBC Micro Bot :mastodon:

     in reply to

     I ran @RLabibov's program and got this.
     Source: https://bbcmic.ro/?t=8mq5q #bbcbasic