}* OILER.TXT AN OPEN SOURCE PROGRAM IN F3 BY ARISTO TACOMA }* 
}* COPYRIGHT AUTHOR, LICENSE FOR FURTHER DISTRIBUTION      }* 
}* IS YOGA4D.ORG/cfdl.org. THIS PROGRAM IS AN UTILITY.     }* 
}* THE GJP-WORK IS DONE BY MEANS OF A PLEASANT FORM        }* 
}* OF THE MATRIX, CALLED FORM063, IN WHICH THE NOTION OF   }*
}* THE CANVAS IS BRIGHT GREEN, WITH BLACK PAINT BEING      }* 
}* OF MAXIMAL INTENSITY WHEN IT IS 63.                     }* 
}* THIS IS CONVERTED BACK TO THE NORMAL GJP 128..191       }* 
}* TONES, WHERE 191 IS BRIGHTEST, BEFORE STORING IT.       }* 
}* THIS IS TO ENCOURAGE THE MIND TO MAKE UP SOME OF THE    }*
}* IMAGE, VAGUELY LIKE OIL PAINTING: IT IS NOT TO SIMULATE }* 
}* ANYTHING, AS THIS AUTHOR PREFERS ACRYLLIC ANYWAY.       }* 
}* BY GOING ADEQUATELY FAR FROM PHOTO-REALISM, IT BECOMES  }* 
}* A GJP THAT CAN ALSO BE USED WITH LIGHT3D IN A MIND-     }* 
}* STIMULATING WAY, IN ADDITION TO, OR AS ALTERNATIVE TO,  }* 
}* DRAWINGS. READ ABOUT FIRST-HAND R/D AT                  }* 
}* www.norskesites.org/fic3 OR www.moscowsites.org/fic3    }*
}* CREATED 2011:2:18. -- A.T./L.A.H.                       }*
((DATA QTY-OF-SQUARES 888 QTY-OF-SQUARES <<ASSERT )) 
((DATA SIZE-OIL-PATCH 8 SIZE-OIL-PATCH <<ASSERT )) 
(( VARSTRING OILER-FILENAME :THISGJP ; OILER-FILENAME => >VARSTR )) 
((DATA OUR-40000-SIZE-MATRIX 200 ; 200 => RAM-PM  
  OUR-40000-SIZE-MATRIX <<ASSERT )) 
((DATA TO-REFRESH-GJP-SOON TO-REFRESH-GJP-SOON => SETBASIS )) 
((DATA DISPLAY-FORM063-HOUSE )) 
(LET WRITE-GREEN-ON-BLACK BE (( ))
  ((
    (( 1 ; 1 ; 1024 ; 768 ; 128 => RECTFILL ))
    (( 191 B9-FONT-CURRENT-COLOR <<ASSERT ))
    (( 128 B9-POP-BG <<ASSERT ))
  )) OK)
(LET GREEN-FRAME BE (( ))
  ((
    (( 399 ; 399 ; BRIDGE 202 ADD ; BRIDGE 202 ADD ;                          
      128 ; 191 => DOTTED_RECT )) 
    (( 398 ; 398 ; BRIDGE 203 ADD ; BRIDGE 203 ADD ;                          
      128 ; 191 => DOTTED_RECT )) 
    (( 397 ; 397 ; BRIDGE 204 ADD ; BRIDGE 204 ADD ;                          
      128 ; 191 => DOTTED_RECT )) 
  )) OK)
(LET CLEAR-CONTENT-OF-GREEN-FRAME BE (( ))
  ((
    (( 400 ; 400 ; BRIDGE 200 ADD ; BRIDGE 200 ADD ; 191 => RECTFILL ))
  )) OK)
(LET OILER-CLS-TEXT ))
  ((
    (( 1 ; 680 ; 1024 ; 768 ; 128 => RECTFILL ))
  )) OK)
(LET OILER-WORK-TEXT ))
  ((
    (( 4
      (COUNT
        (( OILER-CLS-TEXT ))
        (( }PC WORKING FOR YOU..} ; 500 => FUNNYRFFG ; 700 
          => B9-POP ))
        (( ^50 FR GETV ; 15 => ADD => GOODPAUSE ))
      COUNTUP) ))
    (( OILER-CLS-TEXT ))
    (( }KEEPING ON..} ; 500 => FUNNYRFFG ; 700 
      => B9-POP ))
  )) OK)
(LET OILER-CLS-TEXT ))
  ((
    (( 1 ; 680 ; 1024 ; 768 ; 128 => RECTFILL ))
  )) OK)
(LET OILER-MENU BE (( ))
  ((
    (( }***OILER.TXT                    WELCOME TO Lisa GJ2 Fic3'S OILER!!!} ;
      5 ; 5 => B9-POP ))
    (( }R READ  S STORE  Q QUIT         OILER IS FOR 200X200 GJP IMAGES} ; 
      5 ; 30 => B9-POP ))
    (( }C CONVERT  V VARIABLES    (E.G. RE-READ TO TRY WITH NEW VARIABLES)} ; 
      5 ; 55 => B9-POP ))
    (( }H HOOK UP TO NEW FILENAME. CURRENT .GJP FILENAME IS>>>>>>} ; 
      5 ; 80 => B9-POP )) 
    (( }NOTE, DURING READ, ALL GJP TONES ARE NORMALISED TOWARDS 128..191} ;
      5 ; 105 => B9-POP ))
    (( }EXTRAS: B BLACK OUT EVERY OTHER LINE   L LIGHTEN TONE / SUNNIER} ;    
      5 ; 130 => B9-POP ))
    (( }  K SHADE DARKER      CONVERT BY C USES RFFG, EACH TIME DIFFERENT.} ; 
      5 ; 155 => B9-POP ))
    (( }      NOTE ALSO THAT YOU MUST LOOK ASSOCIATIVELY, FREELY TO GAUGE} ; 
      5 ; 180 => B9-POP ))
    (( }      WHETHER RESULT DEPICTS FULL HEALTH ALSO IN ITS NEW FUZZINESS.} ;
      5 ; 205 => B9-POP ))
  )) OK)
(LET REFRESH-FILENAME-VIEW BE (( )) 
  ((
    (( 8 => MAKEBL ;
      800 ; 80 => B9-POP )) 
    (( OILER-FILENAME => VARSTR> ;
      800 ; 80 => B9-POP )) 
  )) OK)
(LET FROM-GJP-TO-FORM063 BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( GETPAL ))
    (( 200
      (COUNT
        (( 200
          (COUNT
            (( N1 ; N3 ; # => GM ; ))
            (( ; => >>V => READPAL => V>> =>                                 
              VARTOSTK => V>> ; 64 => MOD ; 63 =>                       
              SWITCH => SUB ; N1 ; N3 ; # => PM ))
          COUNTUP) ))
      COUNTUP) ))
    (( && ))
  )) OK)
(LET DISPLAY-FORM063-ESSENCE BE (( )) 
  ((
    (( V2 ; 399 => ADD ; V3 ; 399 => ADD ;                                
      63 ; V11 => SUB ; 128 => ADD => PUTPIXEL ))
   )) OK)
(( :DISPLAY-FORM063-ESSENCE => ?
  DISPLAY-FORM063-HOUSE <<ASSERT ))
(( LOOKSTK )) 
(LET DISPLAY-FORM063 BE (( & )) 
  ((
    (( DISPLAY-FORM063-HOUSE >>> ; # => FORVPM )) 
    (( && ))
  )) OK)
(LET FROM-FORM063-TO-GJP BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( 200
      (COUNT
        (( 200
          (COUNT
            (( 63 ; N1 ; N3 ; # => GM => SUB ; 128 => ADD ;
              N1 ; N3 ; # => PM ))
          COUNTUP) ))
      COUNTUP) ))
    (( && ))
  )) OK)
(LET OILER-GET-IMAGE BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( }DO YOU CONFIRM CLEAR RAM, THEN LOAD FILENAME AS GIVEN ABOVE?} ;
      5 ; 700 => B9-POP ))
    (( 100 ; 725 => B9-YNIN => NOT = OILER-CLS-TEXT ; && ; EXIT === ))
    (( # => CLEAR-MATRIX ))
    (( OILER-WORK-TEXT ))
    (( OILER-FILENAME => VARSTR> ; }.GJP} => CONCAT ;                     
      # => GJPFILE2PM ; RM ))
    (( OILER-WORK-TEXT ))
    (( FROM-GJP-TO-FORM063 )) 
    (( OILER-WORK-TEXT ))
    (( OILER-CLS-TEXT ))
    (( TO-REFRESH-GJP-SOON => SETDANCE )) 
    (( && ))
  )) OK)
(LET OILER-STORE-IMAGE BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( }DO YOU CONFIRM ***STORE (THEN CLR SCREEN)?} ;
      5 ; 700 => B9-POP ))
    (( 100 ; 725 => B9-YNIN ; ))          
    (( ; OILER-CLS-TEXT ; ))      
    (( ; => NOT = && ; EXIT === ))   
    (( OILER-WORK-TEXT ))
    (( FROM-FORM063-TO-GJP )) 
    (( OILER-WORK-TEXT ))
    (( OILER-FILENAME => VARSTR> ; }.GJP} => CONCAT ;                     
      # => PM2GJPFILE ; RM ))
    (( OILER-WORK-TEXT ))
    (( # => CLEAR-MATRIX ))
    (( CLEAR-CONTENT-OF-GREEN-FRAME ))                                   
    (( OILER-CLS-TEXT ))
    (( && ))
  )) OK)
(LET HOOK-UP-WITH-SWEET-CHICKS BE (( )) 
  ((
    (( }FILENAME (BOEHMIAN FOLDER), THEN DO R OR S:} ; 5 ; 700 
      => B9-POP ))
    (( 8 ; 850 ; 700 => B9-READLN => MAKE-SAFE-8-SIZE-FILENAME ; 
      OILER-FILENAME => >VARSTR ))
    (( OILER-CLS-TEXT ))
  )) OK)
(LET REFRESH-GJP-WHEN-NECESSARY BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( TO-REFRESH-GJP-SOON => VISBASIS = && ; EXIT === ))
    (( TO-REFRESH-GJP-SOON => SETBASIS ))
    (( CLEAR-CONTENT-OF-GREEN-FRAME ))
    (( # => DISPLAY-FORM063 ))                       
    (( && ))
  )) OK)
(LET OILER-GET-IT BE (( DEC >N2 ; DEC >N1 )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & ))                
    (( N1 ; SIZE-OIL-PATCH >>> => DIV2 => ADD ;                             
      N2 ; SIZE-OIL-PATCH >>> => DIV2 => ADD ; # => GM => DIV2 => >N6 ))
    (( SIZE-OIL-PATCH >>>   
      (COUNT
        (( SIZE-OIL-PATCH >>>   
          (COUNT
            (( N1 ; N5 => ADD ; N3 ; N6 => ADD ; # => GM => DIV2 ; 
              N10 => ADD ; N1 ; N5 => ADD ; N3 ; N6 => ADD ; # => PM )) 
          COUNTUP) ))
      COUNTUP) ))
    (( && ))
  )) OK)
(LET OILER-CONVERT-IMAGE BE (( )) 
  ((
    (( OILER-WORK-TEXT ))
    (( QTY-OF-SQUARES >>> => >>V FR GETV
      (COUNT
        (( ^180 FR GETV ; 10 => ADD => >N8 )) 
        (( ^180 FR GETV ; 10 => ADD => >N9 )) 
        (( N8 ; N9 => OILER-GET-IT ))
      COUNTUP) ))
    (( OILER-CLS-TEXT ))
    (( TO-REFRESH-GJP-SOON => SETDANCE )) 
  )) OK)
(LET OILER-BLACK-OUT-EVERY-OTHER-LINE BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( OILER-WORK-TEXT ))
    (( 100
      (COUNT
        (( 200
          (COUNT
            (( 63 ; N1 ; N3 => TWICE ; # => PM )) 
          COUNTUP) ))
      COUNTUP) ))
    (( OILER-CLS-TEXT ))
    (( TO-REFRESH-GJP-SOON => SETDANCE )) 
    (( && ))
  )) OK)
(LET OILER-SUNNIER BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( OILER-WORK-TEXT ))
    (( 200
      (COUNT
        (( 200
          (COUNT
            (( N1 ; N3 ; # => GM => DIV2 ;
              N1 ; N3 ; # => PM ))
          COUNTUP) ))
      COUNTUP) ))
    (( OILER-CLS-TEXT ))
    (( TO-REFRESH-GJP-SOON => SETDANCE )) 
    (( && ))
  )) OK)
(LET OILER-SHADE-DARKER BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( OILER-WORK-TEXT ))
    (( 200
      (COUNT
        (( 200
          (COUNT
            (( N1 ; N3 ; # => GM 
              TWICE ; 2 => ADD ; 0 ; 63 => SET-RANGE ;
              N1 ; N3 ; # => PM ))
          COUNTUP) ))
      COUNTUP) ))
    (( OILER-CLS-TEXT ))
    (( TO-REFRESH-GJP-SOON => SETDANCE )) 
    (( && ))
  )) OK)
(LET OILER-MODIFY-VARIABLES BE (( ))
  ((
    (( }SIZE OF PAINT PATCHES, MAX 10 (LAST TIME } ; SIZE-OIL-PATCH >>> => 
      CONCAT ; }): } => CONCAT ; 5 ; 700 => B9-POP )) 
    (( 3 ; 850 ; 700 => B9-READLN => HEAL ; 2 ; 10 => SET-RANGE 
      SIZE-OIL-PATCH <<ASSERT ))
    (( OILER-CLS-TEXT ))
    (( }QUANTITY, KEEP THIS SMALL WHEN BIG SIZE (LAST TIME } ;          
      QTY-OF-SQUARES >>> => CONCAT ;        
      }): } => CONCAT ; 5 ; 700 => B9-POP )) 
    (( 6 ; 850 ; 700 => B9-READLN => HEAL ; 333 ; 25000 => SET-RANGE 
      QTY-OF-SQUARES <<ASSERT ))
    (( OILER-CLS-TEXT ))
  )) OK)
(LET OILER BE (( )) 
  ((
    (( GJ-ON ))
    (( WRITE-GREEN-ON-BLACK ))
    (( GREEN-FRAME ))
    (( CLEAR-CONTENT-OF-GREEN-FRAME ))
    (( OILER-MENU ))
    (( REFRESH-FILENAME-VIEW ))
    (( GOLABEL1: ))
      (( REFRESH-GJP-WHEN-NECESSARY ))
      (( KEY ; :Q => TEQ = GJ-DONE ; EXIT == ; ))
      (( :R => TEQ = OILER-GET-IMAGE == ; )) 
      (( :S => TEQ = OILER-STORE-IMAGE == ; ))
      (( :C => TEQ = OILER-CONVERT-IMAGE == ; )) 
      (( :H => TEQ = HOOK-UP-WITH-SWEET-CHICKS ;
        REFRESH-FILENAME-VIEW == ; )) 
      (( :V => TEQ = OILER-MODIFY-VARIABLES == ; )) 
      (( :B => TEQ = OILER-BLACK-OUT-EVERY-OTHER-LINE == ; )) 
      (( :L => TEQ = OILER-SUNNIER == ; )) 
      (( :K => TEQ = OILER-SHADE-DARKER == ; )) 
      (( ; => RM ))
      (( === === === === ))
      (( === === === === === ))
      (( GOUP1 ))
  )) OK)
(( LOOKSTK )) 
(LET AUTOSTART BE OILER OK)