'||============================\\' '||* SIMPLE PXL BY G9 \\' '||* CELL-BASED PXL FOR LOWRES \\' '||* USES ONLY 1~5% OF CPU !!! //' '||* IDEA OF NATHANIELBABIAK //' '||* CODED ON AN IPHONE ! //' '||============================||' '||============================||' '|| ||' '|| > SUBS YOU CAN USE < ||' '|| (READ CAREFULLY BEFORE USE ||' '|| IN YOUR OWN PROGRAMS !!) ||' '|| ||' '||PXL_SINGLE (CX,CY,PALE) ||' '||DRAWS A SINGLE PIXEL AT CELL||' '||X-Y WITH 1ST COLOR OF THE ||' '||PALETTE [PALE]. ||' '|| ||' '||PXL_LINE_HRZ (CX,CY,LENG,PALE)' '||DRAWS A HORIZONTAL LINE WITH||' '||LENGTH [LENG]. ||' '|| ||' '||PXL_LINE_VRT (CX,CY,LENG,PALE)' '||DRAWS A VERTICAL LINE WITH ||' '||LENGTH [LENG]. ||' '|| ||' '||PXL_RECT_FULL(CX,CY,W,H,PALE)|' '||DRAWS A RECTANGLE FROM CX-CY||' '||WITH WITDH [W] AND WITH ||' '||HEIGHT [H]. ||' '|| ||' '|PXL_RECT_EMPTY(CX,CY,W,H,PALE)|' '||THE SAME AS PXL_RECT_FULL, ||' '||BUT IT DRAWS ONLY THE BORDERS|' '||AND IT COSTS +3% OF CPU. ||' '|| ||' 'PXL_LINE_P2P(CX,CY,CX2,CY2,PALE)' '||DRAWS A LINE FROM CX-CY TO ||' '||CX2-CY2. THIS IS THE MORE ||' '||COMPLICATED SUB ! ||' '|| ||' '||PXL_CLEAR_SINGLE (CX,CY) ||' '||CLEARS ONE PIXEL ||' '|| ||' '||PXL_CLEAR_RECT (CX,CY,W,H) ||' '||CLEARS A PLACE FROM CX-CY ||' '||WITH WIDTH [W] AND HEIGHT [H]|' '|| ||' '||CLS ||' '||CLEARS EVERYTHING,BUT I THINK|' '||YOU KNEW THAT ;) ||' '||========[ ENJOY ! ]=========||' RANDOMIZE TIMER DO FOR J=1 TO 7 FOR I=0 TO 16 CALL PXL_LINE_HRZ (0,I,20,J) WAIT VBL NEXT I NEXT J FOR I=1 TO 250 CALL PXL_SINGLE(RND(20),RND(16),RND(7)) WAIT VBL NEXT I FOR J=0 TO 16 FOR I=0 TO 20 CALL PXL_CLEAR_SINGLE(I,J) NEXT I NEXT J FOR I=0 TO 50 CALL PXL_LINE_HRZ(RND(20),RND(16),RND(8),RND(7)) CALL PXL_LINE_VRT(RND(20),RND(16),RND(8),RND(7)) WAIT 5 NEXT I FOR I=1 TO 20 CALL PXL_RECT_FULL (10-I,8-I,I,I,RND(7)) WAIT 5 NEXT I FOR I=0 TO 16 CALL PXL_LINE_HRZ (0,I,20,0) WAIT VBL NEXT I FOR I=0 TO 40 CALL PXL_RECT_EMPTY (I,I,I+5,I+5,3) WAIT 10 NEXT I LOOP ''''''''''''''''''''''''''''''''''''''' SUB PXL_SINGLE (CX,CY,PALE) CELL CX,CY,1 TINT CX,CY PAL PALE END SUB SUB PXL_LINE_HRZ (CX,CY,LENG,PALE) BG FILL CX,CY TO CX+LENG,CY CHAR 1 BG TINT CX,CY TO CX+LENG,CY PAL PALE END SUB SUB PXL_LINE_VRT (CX,CY,LENG,PALE) BG FILL CX,CY TO CX,CY+LENG CHAR 1 BG TINT CX,CY TO CX,CY+LENG PAL PALE END SUB SUB PXL_RECT_FULL (CX,CY,H,W,PALE) BG FILL CX,CY TO CX+H,CY+W CHAR 1 BG TINT CX,CY TO CX+H,CY+W PAL PALE END SUB SUB PXL_RECT_EMPTY (CX,CY,W,H,PALE) CALL PXL_LINE_HRZ (CX,CY,W,PALE) CALL PXL_LINE_VRT (CX,CY,H,PALE) CALL PXL_LINE_HRZ (CX,CY+H,W,PALE) CALL PXL_LINE_VRT (CX+W,CY,H,PALE) END SUB SUB PXL_LINE_P2P (CX,CY,CX2,CY2,PALE) END SUB SUB PXL_CLEAR_SINGLE (CX,CY) CELL CX,CY,0 END SUB SUB PXL_CLEAR_RECT (CX,CY,W,H) BG FILL CX,CY TO CX+W,CY+H CHAR 0 END SUB ''''''''''''''''''''''''''''''''''''''' #1:MAIN PALETTES 05302F0000383400003C0C00003F3C00 002A2A1500152A1500242A1500102A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000