Papá Robot on Nostr: #bbcmicrobot W% = 512 R% = 300 VP% = 1024 MODE 2 FOR I% = 0 TO 360 STEP 3 ...

#bbcmicrobot
W% = 512
R% = 300
VP% = 1024
MODE 2
FOR I% = 0 TO 360 STEP 3

X=R%*SIN(I%*PI/180)+VP%/2

Y=R%*COS(I%*PI/180)+VP%/2

X1=(R%*1.5)*SIN(I%*PI/180)+VP%/2

Y1=(R%*1.5)*SIN(I%*PI/180)+VP%/2
GCOL 0,I%/3 MOD 7
MOVE X1,Y1:DRAW X,Y
NEXT