}* LCD.TXT -- THIS CAN BE STARTED IN THE 'LCD VERSION' (THAT IS,        }*
}* IN THE PETITE LISA VERSION MADE ORIGINALLY FOR ANTIQUE PC'S          }*
}* IN WHICH NOD501.TXT USES MUCH LESS RAM, BUT WHICH IS FINE FOR        }*
}* COMMERCIAL CARTOONS WHEN THEY RESPECT THE BOUNDARY OF JUST THREE     }*
}* -- 3 -- SKETCHES AT A TIME. LCD IS LIKE LAB EXCEPT THAT IT          }*
}* SHOULD BE USEFUL WITH POINTER (MOUSE-LIKE) DEVICES WHICH MOVE        }*
}* WAY TOO FAST FOR EASY DRAWING, BUT IT TAKES SOME TIME GETTING        }*
}* USED TO. LIKE THE LAB IN NOD501, IT ONLY USES TWO FRAMES FOR         }*
}* THOSE VESA-LIKE LAPTOPS WITH LOWER RES WHICH ONLY SHOW THE           }*
}* LEFT UPPER CORNER OF THE ORDINARY 1024*768 DISPLAY AREA.             }*
}* PUT IT TO C:\BOEHM\BOEHMIAN, START     FIRTHLIS LISA/NOD501          }*
}* THEN DO    :LCD IN        USE F7 OFTEN TO CLEAR AREA                 }*
}* YOU MIGHT DO IT BY SKETCHING WITHOUT CLICKING FIRST, THEN            }*
}* CLICK-SKETCH OVER THE BEST INDICATIONS. NOTE THAT THE VISIBLE        }*
}* PIXEL AREA SHOULD BE TEN LESS IN HEIGHT THOUGH FORMAT OF             }*
}* MATRIX THE SAME.                                                     }*
}* REMEMBER COMMANDS:   ENTER TO SAVE,  F11 TO LOAD, F12 TO CLEAR       }*
}*      F7 TO REDRAW,   HOME TO FIX PALETTE,  END TO PUT TO .BMP        }*
}*      PGUP AND PGDN TO SELECT WHAT TO SKETCH AND WHAT TO RENDER,      }*
}*      AND F1 TO EXIT.  THIS IS LIKE PICASSO'S ATELIER, IT GETS MESSY! }*
}* JUNE 2007, AT.                                                       }*
(LET SKETCH-CLR-2 BE (( >N4 >N3 >N2 >N1 ))
  ((
    (( N3 ; N4 ; N3 380 => ADD ; N4 380 => ADD ;
      CD-BG =-> => FT RECTFILL FEET ))
  )) OK)
(LET LAB-CLR-2 BE (( >N4 >N3 >N2 >N1 ))
  ((
    (( CARTOON-WIDTH =-> >N6 ))
    (( N1 ; N2 ; N1 N6 ADD ;
      N2 CARTOON-HEIGHT =-> 10 SUB ADD ;
      CD-BG =-> => FT RECTFILL FEET ))
    (( N3 ; N4 ; N3 400 => ADD ; N4 380 => ADD ;
      CD-BG =-> => FT RECTFILL FEET ))
  )) OK)
(LET RENDER-CLR-2 BE (( >N4 >N3 >N2 >N1 ))
  ((
    (( N1 ; N2 ; BRIDGE CARTOON-WIDTH =-> ADD ;
      BRIDGE CARTOON-HEIGHT =-> 10 SUB ADD ;
      CD-BG =-> => FT RECTFILL FEET ))
  )) OK)
(LET LCD BE (( ))
  ((
    (( VLOTS ))
    (( START-GRAPHICS ))
    (( SAVE-SCREEN => SETDANCE ))
    (( 1 WHICH-PALETTE <<ASSERT ))
    (( UPDATE-PALETTE ))
    (( READY-BOTH-FOR-LAB ))
    (( 550 => >N6 ; 150 => >N7 ))
    (( 82 => >N8 ; 132 => >N9 ))
    (( 1 ; 1 ; 1024 ; 768 ; CD-SURROUND =->
      => FT RECTFILL FEET ))
    (( ANIMATION-CARTOON =-> => TOV1 ))
    (( N6 N7 N8 N9 => LAB-CLR-2 ))
    (( LETS-TRAVEL ))
    (( LAB-HEADER ))
    (( 1 => TOV4 ))
    (( GOLABEL1:
      (( MOUSEXY => DIV2 N9 ADD >N2 DIV2 N8 ADD >N1 )) **** THIS IS FOR LAB2.TXT {
      (( N1 => UP-TO-EVEN => >N1 ))
      (( N2 => UP-TO-EVEN => >N2 ))
      (( N1 N2 ^255 FR GETV PUTPIXEL )) **** AND THIS {
      (( N1 ; N8 INC INC ; ONE 392 ADD => WITH ;
        N2 ; N9 INC INC ; ONE 392 ADD => WITH => AND
        (MATCHED
          (( MOUSECLICK => Y-TO-1 => >N5 ))
          (( MOUSECLICKR => Y-TO-1 => >N11 ))
          (( N5 ISDANCE ; N11 ISDANCE => ORR
            (MATCHED
              (( N1 ; N8 => SUB => DIV2 => >N3 ))
              (( N2 ; N9 => SUB => DIV2 => >N4 ))
              (( N5 ISDANCE = 1 == 0 === ; N3 ; N4 => THREE ;
                V1 => PM ; ANIMATION-EXTRA =-> ADD ;
                ANIMATION-TRIX =-> PM ))
              (( N5 ISDANCE = 1 == 0 === ; N3 INC ; N4 => THREE ;
                V1 => PM ; ANIMATION-EXTRA =-> ADD ;
                ANIMATION-TRIX =-> PM ))
              (( N3 ; N4 ; N8 ; N9 => UPDATE-IN-SKETCH ))
              (( N3 ; N4 ; N6 ; N7 => UPDATE-IN-RENDER-MAYBE ))
              (( INCN3 ))
              (( N3 ; N4 ; N8 ; N9 => UPDATE-IN-SKETCH ))
              (( N3 ; N4 ; N6 ; N7 => UPDATE-IN-RENDER-MAYBE ))
            MATCHED) ))
        MATCHED) ))
      (( KEYTOUCH
        (MATCHED
          (( NEWKEY ))
          (( V9 0 EQN =
              (( V8 FUNC-KEY-F1 =-> EQN =
                (( 0 => TOV4 ))
                (( CLEAR_KEYBUF ))
              == V8 FUNC-KEY-F3 =-> EQN =
                (( FT-CLS ))
                (( GOLABEL2: ))
                (( 999
                  (COUNT
                    (( :LISA/JUVER N1 CONCAT ; :.TXT => CONCAT =>
                      ONE ALREADYFILE NOT ; KEYTOUCH ORR =>
                        = RM RMS RMS GOFORWARD3 === ))
                    (( 777 => GOODPAUSE ))
                    (( N8 N9 N10 N11 => LAB-CLR-2 ))
                    (( LETS-TRAVEL ))
                    (( READY-BOTH-FOR-LAB ))
                    (( ; ANIMATION-TRIX =-> => FILENUM2PM ; RM ))
                    (( CARTOON-HEIGHT =->
                      (COUNT
                        (( CARTOON-WIDTH =->
                          (COUNT
                            N1 ; N3 ; ANIMATION-TRIX =-> => GM ;
                            N1 ; N3 ; V1 => PM
                          COUNTUP)
                        COUNTUP) ))
                    (( N10 ; N11 => DISPLAY-SKETCH-AGAIN-FASTER ))
                    (( N8 ; N9 => FRESH-RENDER-FASTER ))
                  COUNTUP) ))
                (( GOLABEL3: KEYTOUCH NOT = GOUP2 === ))
                (( CLEAR_KEYBUF ))
                (( LAB-HEADER ))
                (( N6 N7 N8 N9 => LAB-CLR-2 ))
                (( LETS-TRAVEL ))
                (( READY-BOTH-FOR-LAB ))
              == V8 FUNC-KEY-F6 =-> EQN =
                (( TOGGLE-PALETTE ))
                (( CLEAR_KEYBUF ))
              == V8 FUNC-KEY-F7 =-> EQN =
                (( N6 N7 N8 N9 => LAB-CLR-2 ))
                (( READY-BOTH-FOR-LAB ))
                (( YOGA6D_COM-INFO ))
                (( N8 ; N9 => DISPLAY-SKETCH-AGAIN-FASTER ))
                (( N6 ; N7 => FRESH-RENDER-FASTER ))
                (( CLEAR_KEYBUF ))
              == V8 FUNC-KEY-F11 =-> EQN =
                (( TOGGLE-PALETTE ))
                (( N6 N7 N8 N9 => LAB-CLR-2 ))
                (( LAB-LOADER ))
                (( YOGA6D_COM-INFO ))
                (( N8 ; N9 => DISPLAY-SKETCH-AGAIN-FASTER ))
                (( N6 ; N7 => FRESH-RENDER-FASTER ))
                (( TOGGLE-PALETTE ))
                (( CLEAR_KEYBUF ))
              == V8 FUNC-KEY-F12 =-> EQN =
                (( N6 N7 N8 N9 => LAB-CLR-2 ))
                (( READY-BOTH-FOR-LAB ))
                (( YOGA6D_COM-INFO ))
                (( LETS-TRAVEL ))
              == V8 FUNC-KEY-HOME =-> EQN =
                (( PALETTE-EDITOR ))
                (( CLEAR_KEYBUF ))
              == V8 FUNC-KEY-END =-> EQN =
                (( COPY-SCREEN ))
                (( CLEAR_KEYBUF ))
              == V8 FUNC-KEY-PGUP =-> EQN =
                (( TOGGLE-PALETTE ))
                (( READY-WITH-YOGA6D_COM ))
                (( N6 N7 N8 N9 => SKETCH-CLR-2 ))
                (( }WHICH NUMBER DO YOU WANT TO SKETCH?} 8 =>
                   FRAME-ENTER-DATA
                     (MATCHED
                       (( ; => HEAL ; 1 ;
                         CD-AMOUNTS =-> =>
                         SET-RANGE YOGA6D_COM <<ASSERT ))
                     MATCHED)
                (( FIND-OUT-IS-SKETCH-IN-RENDER-LIST ))
                (( UPDATE-ANIMATION-EXTRA ))
                (( YOGA6D_COM-INFO ))
                (( N8 ; N9 => DISPLAY-SKETCH-AGAIN-FASTER ))
                (( TOGGLE-PALETTE ))
              == V8 FUNC-KEY-PGDN =-> EQN =
                (( TOGGLE-PALETTE ))
                (( YOGA4D_COM =-> EMPTY-LIST ))
                (( N6 N7 N8 N9 => RENDER-CLR-2 ))
                (( }RENDER WHICH SKETCHES TOGETHER NOW?} ;
                   1 ; CD-AMOUNTS =-> ;
                   YOGA4D_COM =-> => FRAME-ENTER-NUMBERS ))
                (( YOGA4D_COM =-> AT-LEAST-NUMBER-1-IN-LIST ))
                (( FIND-OUT-IS-SKETCH-IN-RENDER-LIST ))
                (( N6 N7 => FRESH-RENDER-FASTER ))
                (( TOGGLE-PALETTE ))
              === === === === ===
              === === === === === ))
          == V9 KEY-ENTER =-> EQN =
            (( ANIMATION-TRIX =-> >>V ))
            (( LISAMENU-PALETTE ))
            (( LAB-SAVE-MODELS ))
            (( UPDATE-PALETTE ))
            (( V>> ))
            (( CLEAR_KEYBUF ))
          === === ))
        MATCHED) ))
      (( V4 => ISDANCE = GOUP1 === )) ))
    (( DONE-GRAPHICS ))
    (( VFREE ))
    (( LOOKSTK ; VARSTK => XO ))
  )) OK)
(( LOOKSTK ))
(LET AUTOSTART BE LCD OK)