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