0 Members and 2 Guests are viewing this topic.
sub(___, Pointer to list of values to sort, Pointer to list of words to rearrange based on sort, Number of bytes to sort)
.Move attributes to be sorted by to a sequential section of memoryFor(A,0,255){{A*2+P}+2}→{A+L₁}End.Sortsub(SBD,L₁,P,256)
For(A,0,255sin(A)//W->Scos(A)//H->Cpxl-on(X+S,Y-CEnd
For(A,0,255pxl-on(sin(A)//W+X,Y-(cos(A)//H)End
Code: [Select]For(A,0,255pxl-on(sin(A)//W+X,Y-(cos(A)//H)Endyay optimization
256→AWhile Pxl-On(sin(A)//W+X,sin(A+64)//H+Y)A-1→AEnd
257While -1→APxl-On(sin(A)//W+X,sin(A+64)//H+Y)AEnd
257While -1→APxl-On(sin()//W+X,sin(A+64)//H+Y)AEnd
sub(ADD,°C,°A,)