Maurer Rose Pattern

Just one of many Maurer Rose Patterns that are possible.

 

 

 0 POKE65497,0:SX=144:SY=56:SZ=64:CX=320:CY=192:HSCREEN 2

REM 1 DIM R(CX):FOR I=0 TO CX:R(I)=CY:NEXT I:GOTO 10

REM XO,YO = ORIGIN
10 N=7:D=29:XO=160:YO=95:PI=22/7

REM DW = DRAW WIDTH
REM T=THETA
20 DW = 1 : HCOLOR 7
30 FOR T = 0 TO 360
40   K = T * D * PI / 180
50   R = 98 * SIN(N * K)
60   X = XO - R * COS(K)
70   Y = YO - R * SIN(K)
80   HLINE-(X, Y),PSET
90 NEXT
 
100 DW = 2 : HCOLOR 3
110 FOR T = 0 TO 360
120   K = T * PI / 180
130   R = 98 * SIN(N * K)
140   X = XO + R * COS(K)
150   Y = YO - R * SIN(K)
160   HLINE -(X, Y),PSET
170 NEXT
180 GOTO 180