View difference between Paste ID: tWnN3X0A and r4gvKiBx

 #include "fbgfx.bi"
 
 Dim As Double x, y, angle
 
 ScreenRes 800, 600, 32,,fb.gfx_alpha_primitives
 line(0,0)-(800,600),rgb(0,64,128),bf
-For angle = 0 To 360 Step 1/8
+
-    x = 16 * (Sin(angle))^3
+for S as double = (16*255)/256 to 0 step -1/32
-    y = 13 * Cos(angle) - 5 * Cos(2 * angle) - 2 * Cos(3 * angle) - Cos(4 * angle)
+  For angle = 0 To 3.1415 Step 1/256
-    x = 400 + 10 * x
+
-    y = 300 - 10 * y
+      x = 16 * (Sin(angle))^3
-
+      y = 13 * Cos(angle) - 5 * Cos(2 * angle) - 2 * Cos(3 * angle) - Cos(4 * angle)
-    var iX = cint(int(x)), iY=cint(int(y))
+      x = S * x : y = S * y
-    var fX = x-iX, fY = y-iY
+
-    pset (iX  , iY  ), RGBA(255, 0, 0, (1-fX)*(1-fY)*255)
+      var iX = cint(int(x)), iY=cint(int(y))
-    pset (iX+1, iY  ), RGBA(255, 0, 0, (  fX)*(1-fY)*255)
+      var fX = x-iX, fY = y-iY
-    pset (iX  , iY+1), RGBA(255, 0, 0, (1-fX)*(  fY)*255)
+
-    pset (iX+1, iY+1), RGBA(255, 0, 0, (  fX)*(  fY)*255)
+      'dim as long iG=sqr(x*x+y*y)*.1,iR=128+S*8,iB=64-S*4
       dim as long iR=abs(X\2)+128,iB=16+angle*64,iG=abs(Y)*.9
-Next angle
+      const iAlpha = 128
 
       pset ((400+iX)  , (300-iY)  ), RGBA(iR, iG, iB, (1-fX)*(1-fY)*iAlpha)
       pset ((400+iX)+1, (300-iY)  ), RGBA(iR, iG, iB, (  fX)*(1-fY)*iAlpha)
       pset ((400+iX)  , (300-iY)-1), RGBA(iR, iG, iB, (1-fX)*(  fY)*iAlpha)
       pset ((400+iX)+1, (300-iY)-1), RGBA(iR, iG, iB, (  fX)*(  fY)*iAlpha)
 
       pset ((400-iX)  , (300-iY)  ), RGBA(iR, iG, iB, (1-fX)*(1-fY)*iAlpha)
       pset ((400-iX)-1, (300-iY)  ), RGBA(iR, iG, iB, (  fX)*(1-fY)*iAlpha)
       pset ((400-iX)  , (300-iY)-1), RGBA(iR, iG, iB, (1-fX)*(  fY)*iAlpha)
       pset ((400-iX)-1, (300-iY)-1), RGBA(iR, iG, iB, (  fX)*(  fY)*iAlpha)
 
   Next angle
   sleep 30
 next S
 
 Sleep
 End