.INVERT
DiagnosticOff
Full
While 1
ClrDraw
DrawInv
For(C,0,63)
For(A,0,6)
For(B,0,4)
RectI(A*16-(C/2),B*16-(C/2),C,C)
End
End
DispGraph
DrawInv
ReturnIf getKey(15)
End
End
.WTF
DiagnosticOff
#ExprOn
Full
ClrDraw
StorePic
While 1
For(C,1,40)
RecallPic
For(A,0,6)
For(B,0,4)
If (A^2) and (B^2)
RectI(A*16-(C*2),B*14-(C),C*4,C*2)
Else
RectI(A*16-(C),B*14-(C*2),C*2,C*4)
End
End
End
DispGraph
If getKey(41)
Pause 1000
End
ReturnIf getKey(15)
!If C^20
StorePic
End
End
End
Hmm, why don't you simplify the math to A*16 and B*16 respectively? It would be faster and smaller, I think, unless Axe auto-simplifies? (multiplication by a power of 2 is a pretty cheap operation).Ah, I didn't notice that. Fixed.
(http://img.ourl.ca/wtf.gif)This one reminds me the thing that Runer112 did in early 2010 with lines. It looks quite cool btw :D
(I suck at WabbitEmu settings)Code: [Select].WTF
DiagnosticOff
#ExprOn
Full
ClrDraw
StorePic
While 1
For(C,1,40)
RecallPic
For(A,0,6)
For(B,0,4)
If (A^2) and (B^2)
RectI(A*16-(C*2),B*14-(C),C*4,C*2)
Else
RectI(A*16-(C),B*14-(C*2),C*2,C*4)
End
End
End
DispGraph
If getKey(41)
Pause 1000
End
ReturnIf getKey(15)
!If C^20
StorePic
End
End
End