A Small SKILL Routine to Draw Dynamic Graphic

 This a small skill routine just for entertainment.

Source code:

axlCmdRegister( "GraphicTest" `GraphicTest ?cmdType "interactive")
defun(GraphicTest ()
axlKillDesign()
_layer = "board geometry/outline"
declare( fibo[100])
arrayp(fibo)
for( i 0 2 fibo[i] = i)
for( i 3 20 fibo[i] = fibo[i-1] + fibo[i-2])
GraphyTimer()
 );defun 
 
 procedure( GraphyTimer()                 
                     Count = 0    Count2 = 1     M=20            
                     ID = axlUIWTimerAdd( nil M nil 'GraphyTimeCallback )                                            
                  );procedure
 
 procedure( GraphyTimeCallback( window ID elapsedTime )
                      Count++
                      Circle = caar(axlDBCreateCircle( list( list( fibo[Count2] 0) fibo[Count2]-fibo[Count2-1] ), 0, _layer) )
                      axlTransformObject(Circle, ?angle Count*360/M, ?origin 0:0)
                      axlWindowFit() 
                     when(Count > M   Count = 0    Count2++   M=1.5*M)
                      when( Count2 >7                     
                                axlUIWTimerRemove( ID )
                               Count = 0    Count2=0
                               if( axlUIYesNo("How about the graphic?\nIs it beautiful?" "Just for entertainment.") then
                                   axlUIConfirm(" Ha Ha Ha~~~")
                                   else
                                   axlUIConfirm(" Wu wu wu~~~")
                                 );if
                               );when
                   );procedure