0 Members and 3 Guests are viewing this topic.
If you know how to handle one object, it is easy to handle several, using a For loop.For example, to move one pixel from left to right, you do that::0->A:While 1: Pxl-On(A,0): DispGraph:End(yeah, infinite loop, I don't care)...
Quote from: Hayleia on May 01, 2013, 01:01:44 pmIf you know how to handle one object, it is easy to handle several, using a For loop.For example, to move one pixel from left to right, you do that::0->A:While 1: Pxl-On(A,0): DispGraph:End(yeah, infinite loop, I don't care)...I'd go for this::0->A:While 1: Pxl-On(A,0): A+1->A: DispGraph:EndAnd if you use repeat getKey(15) instaed of While 1, you can quit the loop by pressing clear. But Hayleia has already said the most basic thing: If you know how to do one thing, you can easily do it multiple times by putting it in a for loop.
:"?º'{^r}!{^T}{dot}{cross}{box},/*-+π{E}{e}{^3}{^2}{^-1}{}():."→Str0:For(A,1,length(Str1):sub(Str1,A,1)→Str2:inString(Str0,Str2)→B:A+1→A:sub(Str1,A,1)→Str2:inString(Str0,Str2)→C:Pxl-On(X+B,Y+C):End
:.ASCLPIC:GetCalc("Str1")→A:GetCalc("uX")→{X}{^r}:GetCalc("uY")→{Y}{^r}:"?º'{^r}!{^T}{dot}{cross}{box},/*-+π{E}{e}{^3}{^2}{^-1}{}():."→Str0:""→Str4:length(A)=L:conj(A,Str4,L):For(B,1,length(Str4:Str4+B→P:For(C,1,length(Str0):If Str0+C=P:C→Z:B++:Str4+B→P:For(C,1,length(Str0):If Str0+C=P:C→θ:sub(DW):End:End:End:End:End::Lbl DW:Pxl-On({X}{^r}+Z,{Y}{^r}+θ
GetCalc("uX")→{X}{^r}GetCalc("uY")→{Y}{^r}
Buff(2)->°XBuff(2)->°YGetCalc("uX")->{°X}^rGetCalc("uY")->{°Y}^r
length(A)=L
length(A)->L
Pxl-On({X}{^r}+Z,{Y}{^r}+θ
Buff(2)->°XBuff(2)->°Y