Subject: Animate Package To: LispUsers^.PA ANIMATE Written By: Dan Bobrow with help from Mark Stefik Document Updated: 6 September 1983 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) Uses picture (an arbitrary rectangular bit map) 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) Moves a picture set up with AnimateSetUp from to (FollowCursor picture shadow saveBitMap) 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) 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) will create a large arrow which can be used for pointing *GACHA *z¸