0 Members and 3 Guests are viewing this topic.
.INVERTDiagnosticOffFullWhile 1ClrDrawDrawInvFor(C,0,63)For(A,0,6)For(B,0,4)RectI(A*16-(C/2),B*16-(C/2),C,C)EndEndDispGraphDrawInvReturnIf getKey(15)EndEnd
.WTFDiagnosticOff#ExprOnFullClrDrawStorePicWhile 1For(C,1,40)RecallPicFor(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)ElseRectI(A*16-(C),B*14-(C*2),C*2,C*4)EndEndEndDispGraphIf getKey(41)Pause 1000EndReturnIf getKey(15)!If C^20StorePicEndEndEnd