View difference between Paste ID: pxdpniNg and H1WuC6ug

 /*
 setup and variable declarations
 */
 
 View.Set ('graphics:778;778,offscreenonly')
 
 const midx := maxx div 2
 const midy := maxy div 2
 
 type cart :
 record
-    m : array 0 .. 778, 0 .. 778 of boolean
+    m : array 0 .. 778, 0 .. 778 of int
     x : array 0 .. 778 of int
     y : array 0 .. 778 of int
     z : array 0 .. 778 of int
 end record
 
 var x, y, z : int
 var map : array 0 .. 360 of cart
 
 /*
 begin program
 */
 
 /*
 begin render and capture
 */
 
 for q : 0 .. 360
     cls
 					/*
 					begin render of frame
 					*/
     for s : 0 .. midx
         for t : 1 .. midy
             map (q).x (s) := round (cosd (t) * s) + midx	%---------------------------------%
             map (q).y (t) := round (sind (s) * t) + midy	% calculate position of plot data %
-            map (q).z (s) := t					%---------------------------------%
+            map (q).z (s) := t					            %---------------------------------%
             x := map (q).x (s) - midx
             z := map (q).z (s)
-            x := round (cosd (q) * x - sind (q) * z)	% calculate rotation around y-axis
+            x := round (cosd (q) * x - sind (q) * z)	    % calculate rotation around y-axis
             map (q).x (s) := x + midx
-            Draw.Dot(map(q).x(s), map(q).y(t), black)		% plot data
+            if q > 0 then
                 Draw.Dot(map(q).x(s), map(q).y(t), (s mod t) mod maxcolour)
             else
-                    			/*
+                Draw.Dot(map(q).x(s), map(q).y(t), black)
             end if
         end for
     end for
                     /*
 					end render of frame
 					*/
 
 					/*
-            if whatdotcolour(i,o) = 7 then
+
-                map(q).m(i,o) := true
+
     for i : 0 .. maxx
-                map(q).m(i,o) := false
+
             map(q).m(i,o) := whatdotcolour(i,o)
         end for
     end for
 					/*
 					end capture of frame
 					*/
 
     View.Set ('title:Rendering: ' + realstr (round ((q / 360) * 1000) / 10, 3) + '% complete')      % update title bar to show rendering status
     View.Update
 end for
 
 /*
 end render and capture
 */
 
 cls
 View.Update
 Input.Pause
 
 /*
 begin playback
 */
 
 loop
     for q : 0 .. 360
         cls
         for s : 0 .. maxx
             for t : 0 .. maxy
-                if map(q).m(s,t) then
+                Draw.Dot (s, t, map(q).m(s,t))
-                    Draw.Dot (s, t, black)
+
-                end if
+
         View.Update
     end for
     cls
     Input.Pause
 end loop