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,)