dim COL(15) 
Restore 
for y=1 to 15
read COL(y)
next
tft.fill 0
t = millis
For PY=0 To 168 Step 8
  YZ=PY/88-1
  For PX=0 To 248 Step 8
    XZ=PX/73.14-2.5:X=0:Y=0
    For I=0 To 14
      If X*X+y*y>4 Then Exit For
      XT=X*x-Y*y+XZ:Y=2*X*Y+YZ:X=XT
    Next
    'Box PX,PY,8,8,0,0,COL(I)
    tft.rect px,py,8,8,col(i),1 
  Next
Next
Print millis - t


Data tft.color(BLUE),tft.color(GREEN),tft.color(CYAN),tft.color(RED)
Data tft.color(MAGENTA),tft.color(YELLOW),tft.color(WHITE),tft.color(PINK)
Data tft.color(GOLD) ,tft.color(DARKGREEN),tft.color(OLIVE),tft.color(ORANGE)
Data tft.color(MAGENTA),tft.color(BROWN),tft.color(VIOLET), 0