XEROX BLTDEMO 2 4 1 BLTDEMO 1 4 By: Michel Denber (Denber.WBST@Xerox.COM) INTRODUCTION BLTDEMO is a small demo of animated graphics in Interlisp-D. It is patterned after a similar Smalltalk program. It creates a window which displays three objects which move about, bouncing off the edges of the window. There is a star, a box, and a washer. The star spins around as it moves. The box is actually a small window which displays the contents of the screen surrounding a region the size of the box centered about the cursor. By moving the mouse around, you will see the contents of the box change in real-time as the box itself continues to move inside the window. If you move the cursor over the box, you get an interesting "hall of mirrors" effect as the box shows what's near the cursor, which is the box, which shows what's near the cursor, etc. Programmers unfamiliar with BITBLT and windowing often find this impressive. OPERATION To load the program, type LOAD ({fs}BLTDEMO.DCOM, where fs is the name of your local Lispusers directory. (BOUNCE XSPEED YSPEED) [Function] This starts the demo. You will be prompted to create a window. XSPEED and YSPEED are optional arguments which set the speed of the objects in x and y. Their default value is 3. There is no formal way of ending the program. It will run in a loop until you exit with a CTRL-E. EXAMPLE .ЯџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќћПџ§џџќюџџяџќЧїўў?џџџџџџџџџџџџџџџќћПџ§џџџюџџяяџћџлџОџНџџџџџџџџџџџџџџџќњИщхЧNпъуЇя/ќpџлЧŸИџџџџџџџџџџџџџџќњЗfйЛ7}пън›юЯћЛџУїОoНџџџџџџџџџџџџџџџќњЗnнƒ}пънПюяћЛџнїОяНџџџџџџџџџџџџџџџќ§wnнП}пѕнПюяћЛџнїОяНџџџџџџџџџџџџџџџќ§wnйЛ}ŸѕнПюЯћЛџнїЖoНПџџџџџџџџџџџџџџќ§xюхЧ~_ѕуПя/ќ{џУїЮŸОџџџџџџџџџџџџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќР Р Р Р Р Р Р€ РР Рр Р№ Р€ РР РР Р` Р` Р0 Р0 Р Р Р Р Р Р Р Р Р Р Р Р Р Р Рџџџџџј Рџџџџџј Р€ Р€ Р€ Р€ Р€ Рžџџџџј РЁџџџџј РРћПџ§ј РРћПџ§ј РРњИщхи РРњЗfйИ РЁњЗnн˜ Рž§wnнИ Р€§wnйИ Р€§xюхи Р€џџџџј Р€џџџџј Р€џџџџј Р€џџџџј ЈРРСР РЂР РЄР Р@ФР РрЄР РрЄР Р№ЂР Р№СР Р№€Р Рј€Р Рј€Р Рј€Р Рќ€Р Рќ€Р Рў€Р Рў‡Р Яџџџџџ€ФР ЯџџџџџЄР ЧџџџџќЇР УџџџџјЄР РџџџџрЄР РџџџРФР Рџџџџџџџџј Рџџўџџџџџј Рџџј Рџџ№ Рџџр РџР Рџџр Рџџр Рџџ№ Рџџ№ Рџџ№ РџПј Рўј Рќј Р№ќ Ррќ Р€< Р Р  Р Р Р Р Р Р Р?ў Рџџр Рџџј Рџџў Р?џџџ Рџџџ€ РџџџџР Рџџџџр Рџџџџ№ Рџџџџј Рџџџџј Рџџџџќ Рџ№џќ РџРџў Рџ€џў Рџў Р?ў?џ Р?ў?џ Р?ў?џ Р?ќџ Р?ќџ Р?ќџ Р?ќџ Р?ќџ Р?ќџ Р?ќџ Р?ќџ Р?ў?џ Р?ў?џ Рџў Рџ€џў РџРџў Рџ№џў Рџџџџќ Рџџџџќ Рџџџџј Рџџџџј Рџџџџ№ Рџџџџр РџџџџР Рџџџ€ Р?џџџ Рџџќ Рџџ№ РџџР Р?ў Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р Р џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќ(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC ) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC )) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))) T( (Ш1Ш Ш(ŠŠ8(Ш (ŠŠ8DШШ PAGEHEADING RUNNINGHEAD HELVETICA MODERN MODERN MODERN MODERNMODERN LOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN + N ! 1   AЦЦ BMOBJ.GETFN3MODERN $46zК