(PROGN (PRIN1 "Use LOADDB to load database files! " T) (ERROR!)) NIL FNS (SHOWBITMAP.IP SHOWBITMAP1.IP) (READATABASE) ( CALL SHOWBITMAP.IP (INTERSECTREGIONS FFETCHFIELD LIST CEIL FLOOR LOGAND IPLUS FOLDHI LRSH CONSTANT SUB1 LOGXOR \RTIMES2 IQUOTIENT IMIN IDIFFERENCE) SHOWBITMAP1.IP (ITIMES BITMAPCREATE CEIL FLOOR LOGAND IPLUS CONSTANT SUB1 LOGXOR \ADDBASE FFETCHFIELD IMOD FOLDLO LRSH) NIL BIND SHOWBITMAP.IP NIL SHOWBITMAP1.IP (CHUNKYPOS) NIL NLAMBDA SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL NOBIND SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL RECORD SHOWBITMAP.IP NIL SHOWBITMAP1.IP (BITMAP) NIL CREATE SHOWBITMAP.IP (REGION) SHOWBITMAP1.IP NIL NIL FETCH SHOWBITMAP.IP (BITMAPWIDTH BITMAPHEIGHT WIDTH HEIGHT LEFT BOTTOM) SHOWBITMAP1.IP (BITMAPBASE BITMAPRASTERWIDTH) NIL REPLACE SHOWBITMAP.IP (LEFT BOTTOM WIDTH HEIGHT) SHOWBITMAP1.IP NIL NIL REFFREE SHOWBITMAP.IP (BYTESPERWORD MAXLONGSEQUENCEBYTES MICASPERRAVENSPOT) SHOWBITMAP1.IP ( BITSPERCELL DOSAVESIMPLEBODY { SEQPACKEDPIXELVECTOR MAKEPIXELARRAY MASKPIXEL }) NIL REF SHOWBITMAP.IP (IPSTREAM BITMAP MAXYPIXELSPERCHUNK ROTATION CHUNKYPOS) SHOWBITMAP1.IP (XBYTES YPIXELS XPIXELS BITMAP BOTTOM IPSTREAM ROTATION SCALEFACTOR TOTALBYTES SCRATCHBM XWORDS) NIL SETFREE SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL SET SHOWBITMAP.IP (REGION XPIXELS YPIXELS XBYTES SCALE LEFT BOTTOM) SHOWBITMAP1.IP (BMBASE Y) NIL SMASHFREE SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL SMASH SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL PROP SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL TEST SHOWBITMAP.IP (REGION SCALE) SHOWBITMAP1.IP (LEFT) NIL TESTFREE SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL PREDICATE SHOWBITMAP.IP (IGREATERP ILEQ) SHOWBITMAP1.IP (IGREATERP) NIL EFFECT SHOWBITMAP.IP (SHOW.IP ERROR SHOWBITMAP1.IP) SHOWBITMAP1.IP (APPENDOP.IP TRANS.IP APPENDNUMBER.IP APPENDINTEGER.IP SELECTQ ROTATE.IP TRANSLATE.IP CONCAT.IP ERROR SCALE.IP APPENDSEQUENCEDESCRIPTOR.IP APPENDINT.IP \BLT \BOUTS) NIL CLISP SHOWBITMAP.IP (bind while first do) SHOWBITMAP1.IP (for from to do) NIL SPECVARS SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL LOCALVARS SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL APPLY SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL ERROR SHOWBITMAP.IP (ppe) SHOWBITMAP1.IP NIL NIL LOCALFREEVARS SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL ARGS SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL USERTEMPLATES SETQ.NOREF (CALL SET EVAL . PPE) OP# (CALL) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) CW (CALL) CWN (CALL EVAL) NIL 0 SHOWBITMAP.IP NIL SHOWBITMAP1.IP NIL NIL )