XEROX ANIMATE 2 4 1 ANIMATE 1 4 By: Dan Bobrow with help from Mark Stefik (Stefik.pa@Xerox.com) This small package contains functions for moving a non-rectangular bitmap smoothly around the screen, ways of using these to get big cursors, and bitmaps for a large arrow and a hand to be used as large cursors. (AnimateSetUp picture shadow x y saveBitMap) [Function] Uses picture (an arbitrary rectangular bit map), and shadow (a bit map which is black inside outline of picture). AnimateSetUp places picture on screen at leaving the background around shadow. It returns saveBitMap, which is created the same size as picture if not given. AnimateMove uses saveBitMap to compute the new screen image when the picture is moved. (AnimateMove picture shadow saveBitMap oldx oldy newx newy) [Function] Moves a picture set up with AnimateSetUp from to (FollowCursor picture shadow saveBitMap) [Function] Waits for a mouse button to be down, blanks out the usual cursor, and causes picture to track the mouse movement until all the mouse buttons are up. BIGCW is a function for making a large icon which stays on the screen as a window until it is selected with the mouse when it will follow the cursor. (BIGCW POS ICONBITMAP SHADOWBITMAP SAVEBITMAP) [Function] Creates a window which contains ICONBITMAP. When the window is selected (clicked with a mouse button) BIGCW closes the window, and causes the ICONBITMAP to Follow the mouse movement. When the button is lifted, the original window reappears. Two sets of bit maps come with the file: Hand, and HandShadow BigArrowIcon BigArrowShadow. (BIGCW) defaults to using the Hand, allowing the user to place the window. (BIGCW NIL BigArrowIcon BigArrowShadow) [Function] will create a large arrow which can be used for pointing (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 ) STARTINGPAGE# NIL) (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)))))(È (È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADMODERN MODERN MODERN MODERN MODERN MODERNLOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN AÔo -L–™ "ò)2K :-Azº