I ran @RLabibov's program and got this.
Source: https://bbcmic.ro/?t=8mq5q #bbcbasic
I ran @RLabibov's program and got this.
Source: https://bbcmic.ro/?t=8mq7h #bbcbasic
@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
I ran @RLabibov's program and got this.
Source: https://bbcmic.ro/?t=8mq8e #bbcbasic
@bbcmicrobot
#bbcmicrobot MODE 1:VDU29,640;512;5:GCOL0,3
R=208:S=R*SQR(3)
MOVE0,0
PLOT&91,R,0
FOR I%=0 TO 359 S.60
MOVE R*COSRAD(I%),R*SINRAD(I%)
PLOT&91,R,0
NEXT
FOR I%=30 TO 389 STEP 30
K=-2*R*((I%-30)MOD 60<>0)-S*((I%-30)MOD 60=0)
MOVE K*COSRAD(I%),K*SINRAD(I%)
PLOT&91,208,0
NEXT
I ran @RLabibov's program and got this.
Source: https://bbcmic.ro/?t=8mq8H #bbcbasic
I ran @RLabibov's program and got this.
Source: https://bbcmic.ro/?t=8mq9T #bbcbasic
@bbcmicrobot Not Lissajous, that's rose curves (aka rhodonea curves)