}* LUMINOUS.TXT WRITTEN IN THE LISA GJ2 FIC3 PROGRAMMING }* }* LANGUAGE BY ARISTO TACOMA wLAH }* }* 2011:3:5. REDIST BY YOGA4D.ORG/cfdl.txt }* }* CAN PREPARE A DRAWnn.BMP FOR FURTHER DRAWING IN }* }* PROFILE, BY WORK ON THE .GJP SO AS TO MAKE SUCH AS }* }* HORIZON BRIGHTER AND MORE LUMINOUS. PREPARE .GJP }* }* USUALLY BY OPENING IN, THEN SAVING, IN OILER.TXT. }* }* DO THIS FOR A FUNCTION OTHER THAN THAT OF MAKING }* }* A PERSON APPEAR BETTER -- RATHER TAKE MORE PHOTOS }* }* IF THAT WAS THE PURPOSE. }* ((DATA SHOW-ENLARGED-GJP-HOUSE )) ((DATA GJP-FIELD 200 ; 200 => RAM-PM GJP-FIELD < SETDANCE )) ((DATA WET-TONES WET-TONES => SETDANCE )) (LET BRIGHTEST BE (( )) (( (( ^0 ; ^255 ; ^0 ; ^0 => WRITEPAL )) (( PUTPAL )) )) OK) (LET SCREEN-TO-FILE BE (( )) (( (( GETPAL )) (( }DRAW} ; DRAW-IMAGE-NUMBER >>> => CONCAT => SCREENBMP )) (( DRAW-IMAGE-NUMBER => INCVAR )) )) OK) (LET SHOW-ENLARGED-GJP-ESSENCE BE (( )) (( (( 180 ; V2 ; 3 => MUL => ADD ; 100 ; V3 ; 3 => MUL => ADD ; BRIDGE INC INC ; BRIDGE INC INC ; V11 => RECTFILL )) )) OK) (( }SHOW-ENLARGED-GJP-ESSENCE} => ? SHOW-ENLARGED-GJP-HOUSE <>> ; # => FORVPM )) (( && )) )) OK) (LET ENLARGE-OILER-GJP BE (( )) (( (( GJP-FIELD >>> => & )) (( BRIGHTEST )) (( UNSHOWMOUSE )) (( CLS )) (( # => CLEAR-MATRIX )) (( }NAME OF GJP WHICH HAS BEEN SAVED BY OILER (NOT INCL .GJP):} ; 10 ; 100 => B9-POP )) (( 8 ; 850 ; 100 => B9-READLN => MAKE-SAFE-8-SIZE-FILENAME ; )) (( ; => LENGTH => ISBASIS = RM ; && ; EXIT === ; )) (( ; :.GJP => CONCAT ; # => GJPFILE2PM ; RM )) (( CLS )) (( # => SHOW-ENLARGED-GJP )) (( SHOWMOUSE )) (( && )) )) OK) (LET LUMINOUSER BE (( )) (( (( GJP-FIELD >>> => & )) (( CLS )) (( FEET )) (( GOLABEL4: )) (( ^20 FR GETV => GOODPAUSE )) (( 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 ; 12 => EQN = ENLARGE-OILER-GJP )) (( === === === === === === )) )(OTHER (( MOUSEXY => >N4 => >N3 )) (( N3 ; 193 ; 774 => SET-RANGE => >N3 )) (( N4 ; 110 ; 692 => SET-RANGE => >N4 )) (( MOUSECLICK (MATCHED (( N3 => DEC => UP-TO-HIGHER-EVEN => >N3 )) (( N4 => DEC => UP-TO-HIGHER-EVEN => >N4 )) (( N3 ; 184 => SUB ; 3 => DIV => >N1 )) (( N4 ; 104 => SUB ; 3 => DIV => >N2 )) (( N1 ; N2 ; # => GM => INC => INC ; 128 ; 191 => SET-RANGE => >N10 )) (( N10 ; N1 ; N2 ; # => PM )) (( N3 ; N4 ; BRIDGE 5 ADD ; BRIDGE 5 ADD ; N10 => FT RECTFILL FEET )) MATCHED) )) MATCHED) )) (( GOUP4 )) )) OK) (LET LUMINOUS BE (( )) (( (( GJ-ON )) (( GJP-FIELD >>> => CLEAR-MATRIX )) (( }LUMINOUS PREPARES FOR PROFILE. OPEN GJP IN OILER, SAVE IT, THEN} ; 10 ; 310 => B9-POP )) (( }CTR-L HERE TO LOAD IT, AND BRIGHTEN FIELDS. CTR-A TO FLASH ON/OFF, }; 10 ; 335 => B9-POP )) (( }CTR-B FOR BRIGHTEST TYPE OF BACKGROUND, RECOMMENDED IN PROFILE,} ; 10 ; 360 => B9-POP )) (( }-- WAIT DRAWING ON LINES UNTIL YOU OPEN .BMP FROM HERE IN PROFILE,} ; 10 ; 385 => B9-POP )) (( }CTR-D TO SAVE (OVERWRITE) TO DRAWn.BMP. NORMALLY USE CTR-B HERE,} ; 10 ; 410 => B9-POP )) (( }AND WITH EACH CLICK ON MOUSE, A TOUCH OF GJP IS MADE LUMINOUS.} ; 10 ; 435 => B9-POP )) (( }CTR-F TO REMOVE ALL ON SCREEN, AND ESC TO LEAVE.} ; 10 ; 460 => B9-POP )) (( }IT TAKES A WHILE TO GET THE KNACK OF GETTING THE GJP'S RIGHT ETC.} ; 10 ; 485 => B9-POP )) (( }PLS BEWARE: INPUT TO THIS PROGRAM IS ONLY .GJP, NOT ITS OUTPUT .BMP.} 10 ; 510 => B9-POP )) (( A-KEY )) (( LUMINOUSER )) (( GJ-DONE )) )) OK) (( LOOKSTK )) (LET AUTOSTART BE LUMINOUS OK)