X=0 Y=0 FX=0 FY=0 QUIT=0 GLOBAL X,Y,FX,FY,QUIT TOUCHSCREEN S: PRINT "** S-PXL EXAMPLES **"; PRINT " " PRINT "1-RECTANGLE TRACING" PRINT "2-PAINTING" PRINT "3-RAINBOW PAINTING !"; PRINT PRINT "Q-QUIT" PRINT "C-CLEAR THE SCREEN" INPUT ">";Y CLS QUIT=0 IF Y=1 THEN CALL RECTEXAMPLE ELSE IF Y=2 THEN CALL PAINT ELSE IF Y=3 THEN CALL RAINBOWPAINT ELSE GOTO S Y=0 SUB RECTEXAMPLE REPEAT IF TOUCH THEN FX=TOUCH.X FY=TOUCH.Y X=0 Y=0 REPEAT CALL PXL_CLEAR_RECT(FX/8,FY/8,X/8-3,Y/8-3) X=TOUCH.X Y=TOUCH.Y CALL PXL_RECT_FULL(FX/8,FY/8,X/8-3,Y/8-3,0) WAIT VBL UNTIL NOT TOUCH END IF WAIT VBL IF INKEY$="C" THEN CLS IF INKEY$="Q" THEN QUIT=-1 UNTIL QUIT END SUB SUB PAINT REPEAT IF TOUCH THEN REPEAT X=TOUCH.X Y=TOUCH.Y CALL PXL_SINGLE (X/8,Y/8,0) WAIT VBL UNTIL NOT TOUCH END IF IF INKEY$="C" THEN CLS IF INKEY$="Q" THEN QUIT=-1 WAIT VBL UNTIL QUIT END SUB SUB RAINBOWPAINT REPEAT IF TOUCH THEN REPEAT INC FX IF FX=8 THEN FX=1 X=TOUCH.X Y=TOUCH.Y CALL PXL_SINGLE (X/8,Y/8,FX) WAIT VBL UNTIL NOT TOUCH END IF IF INKEY$="C" THEN CLS IF INKEY$="Q" THEN QUIT=-1 WAIT VBL UNTIL QUIT END SUB ''''''''''''''''''''''''''''''''''''''' 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 00302F0000383400003C0C0000193C00 000C291500052A1500032A1500232A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000