' Program FlowersX.bas

'--------------------------------- flowers -----------------------

DIM a%(3,6,6),b%(3,6,6)

BackColor 30

CLS

ForeColor 33

L%=150

BackColor 405

CLS

x0%=320: y0%=220 :m%=1.3*L%

FOR k%=0 TO 15

ForeColor 19*k%

LINE(x0%,y0%)-(x0%+m%*COS(.392*k%),y0%-L%*SIN(.392*k%)),1

ForeColor 605

LINE(x0%,y0%)-(x0%+.1*m%*COS(.392*k%),y0%-.12*L%*SIN(.392*k%)),1

CIRCLE STEP (0,0),1,1

NEXT k%

FOR j%=0 TO 15

x0%=320+m%*COS(.392*j%)

y0%=220-L%*SIN(.392*j%)

FOR k%=0 TO 15

ForeColor 17*(j%)

LINE(x0%,y0%)-(x0%+.2*m%*COS(.392*k%),y0%-.3*L%*SIN(.392*k%)),1

ForeColor 33*(2*j%+1)

LINE(x0%,y0%)-(x0%+.06*m%*COS(.392*k%),y0%-.08*L%*SIN(.392*k%)),1

CIRCLE STEP (0,0),1,1

NEXT k%,j%

FOR i%=0 TO 15

FOR j%=0 TO 15

x0%=320+m%*COS(.392*i%)+.2*L%*COS(.392*j%+.4)

y0%=220-L%*SIN(.392*i%)+.3*L%*SIN(.392*j%+.4)

FOR k%=0 TO 15

ForeColor 75*(i%)

LINE(x0%,y0%)-(x0%+.05*L%*COS(.392*k%),y0%-.09*L%*SIN(.392*k%)),1

ForeColor 17*(2*i%+1)

CIRCLE STEP (0,0),1,1

NEXT k%,j%,i%

FOR k=1 TO 10^6

NEXT k