}* THIS IS THE WT, OR, WILDTONE DRAWING TOOL IN THE }* }* VERSION WE CALL WTFIRTH.TXT, WITH ALL PAUSES REMOVED }* }* FOR FUN & STIMULATING GREEN-ONLY STIMULATION IN FIRTH. }* }* WT.TXT WRITTEN IN THE LISA GJ2 FIC3 PROGRAMMING }* }* LANGUAGE BY ARISTO TACOMA WITH, AS ALWAYS, LISA, }* }* ATHINA AND HELENA SALINGER (ATwLAH, OR JUST A.T.) }* }* CREATED FEBRUARY 2011. YOGA4D.ORG/cfdl.txt COPYRIGHT }* }* THIS UPDATE 1::A::2012::2::25 }* ((DATA DRAW-IMAGE-NUMBER DRAW-IMAGE-NUMBER => SETDANCE )) ((DATA WET-TONES WET-TONES => SETDANCE )) (LET BRIGHTEST BE (( )) (( (( ^0 ; ^255 ; ^0 ; ^0 => WRITEPAL )) (( PUTPAL )) )) OK) (LET GET-DRAWING BE (( )) (( (( BRIGHTEST )) (( WET-TONES => SETBASIS )) (( FT CLS )) (( }GET PREVIOUS DRAWING IN SAME FOLDER. NAME (NOT INCLUDING .BMP):} ; 10 ; 100 => B9-POP )) (( 8 ; 850 ; 100 => B9-READLN => MAKE-SAFE-8-SIZE-FILENAME ; )) (( ; => LENGTH => ISBASIS = RM ; EXIT === )) (( ; 0 ; => SWITCH => FT FLASHSEC FEET )) (( ^0 ; ^0 ; ^0 ; ^1 => WRITEPAL )) )) OK) (LET SCREEN-TO-FILE BE (( )) (( (( GETPAL )) (( }DRAW} ; DRAW-IMAGE-NUMBER >>> => CONCAT => SCREENBMP )) (( DRAW-IMAGE-NUMBER => INCVAR )) )) OK) (LET PLAYFUL-DRAWING BE (( )) (( (( CLS )) (( FEET )) (( GOLABEL3: )) (( GOLABEL4: )) (( WET-TONES => VISDANCE = 100000 => FUNNYRFFG ; 95000 => INTGREATER = ^0 ^255 FR ^0 ^0 => WRITEPAL ; PUTPAL === === )) (( KEYTOUCH (MATCHED (( KEYNUM => >N5 )) (( N5 ; KEY-ESC >>> => EQN = FT ; CLS ; EXIT == )) (( N5 ; 1 => EQN = WET-TONES => FLAGFLIP == )) (( N5 ; 2 => EQN = BRIGHTEST ; WET-TONES => SETBASIS == )) (( N5 ; 4 => EQN = FT ; SCREEN-TO-FILE ; 500 => GOODPAUSE ; FEET == )) (( N5 ; 6 => EQN = FT CLS FEET == )) (( N5 ; 7 => EQN = GET-DRAWING )) (( === === === === === === )) )(OTHER (( N1 => >N3 )) (( N2 => >N4 )) (( MOUSEXY => >N2 => >N1 )) (( N1 ; 6 ; 1016 => SET-RANGE => >N1 )) (( N2 ; 6 ; 760 => SET-RANGE => >N2 )) (( 1 ; N3 ; N1 => SUB => ABS => INTGREATER ; 1 ; N4 ; N2 => SUB => ABS => INTGREATER => AND = GOUP3 === )) (( MOUSECLICK (MATCHED (( 7 (COUNT (( N1 ; 3 => SUB => >N10 )) (( N3 N10 ADD ; N4 N10 ADD ; N5 N10 ADD ; N6 N10 ADD ; 1 => FT LINE FEET )) (( N3 N10 ADD ; N4 ; N5 N10 ADD ; N6 ; 1 => FT LINE FEET )) (( N3 ; N4 N10 ADD ; N5 ; N6 N10 ADD ; 1 => FT LINE FEET )) COUNTUP) )) )(OTHER (( MOUSECLICKR (MATCHED (( 7 (COUNT (( N1 ; 4 => SUB => >N10 )) (( N3 N10 ADD ; N4 N10 ADD ; N5 N10 ADD ; N6 N10 ADD ; 0 => FT LINE FEET )) (( N3 N10 ADD ; N4 ; N5 N10 ADD ; N6 ; 0 => FT LINE FEET )) (( N3 ; N4 N10 ADD ; N5 ; N6 N10 ADD ; 0 => FT LINE FEET )) COUNTUP) )) MATCHED) )) MATCHED) )) MATCHED) )) (( GOUP4 )) )) OK) (LET WT BE (( )) (( (( GJ-ON )) (( }WELCOME TO WT, OR WILDTONE! PLS CHANGE NAME OF ANY EARLIER DRAWnn} ; 10 ; 310 => B9-POP )) (( }FIRST. MOUSE LEFT / RIGHT TO DRAW / ERASE, CTR-A TO FLASH ON/OFF,} ; 10 ; 335 => B9-POP )) (( }CTR-B FOR BRIGHTEST TYPE OF BACKGROUND FOR YOUR VIRTUAL PEN DRAWING,} ; 10 ; 360 => B9-POP )) (( }CTR-G TO CLEAR SCREEN AND GET A PREVIOUSLY MADE DRAWING IN WT} ; 10 ; 385 => B9-POP )) (( }CTR-D TO SAVE (OVERWRITE) TO DRAW1.BMP, DRAW2.BMP, -- MOUSE POINTER} 10 ; 410 => B9-POP )) (( }WILL VANISH FOR HALF A SECOND TO SHOW THE ACTION OF SAVING.} ; 10 ; 435 => B9-POP )) (( }CTR-F TO REMOVE ALL ON SCREEN, AND ESC TO LEAVE.} ; 10 ; 460 => B9-POP )) (( }***AND MAKE NEW SWEET ART GREATER THAN YOU'VE MADE BEFORE!!! :-)} 10 ; 560 => B9-POP )) (( A-KEY )) (( PLAYFUL-DRAWING )) (( GJ-DONE )) )) OK) (( LOOKSTK )) (LET AUTOSTART BE WT OK)