ToolBook 3.0

home *** CD-ROM | disk | FTP | other *** search

/ ToolBook 3.0 / ToolBook v3.0.iso / tb30 / samples / animate.tbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1994-05-19 | 360.1 KB | 4,268 lines

wwwwp wwwwwwwp wwwwwwp wwwwwwp wwwwwp wwwwwp wwwwwp wwwwwwp wwwwwwp wwwwwwwp arrow5 arrow1 arrow2 arrow3 arrow4 arrow6 wwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwp wwwwwwwww wwwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwwwwwwwp wwwwww wwwwwww wwwwp wwwww wwwwwp wwwwwww wwwwp wwwwww DDDDD wwwww wwwwww DDDDD@ wwwww DDDDDDD DDDDDDD@ DDDDDDDDD wpwwp wwwww wwwwww wwwwww wwwwp wwwwwww wwwwww wwwwwwp wwwwwwww wwwwwww wwwwwwwwwwwp wwwwwwwww wwwwwwww wwwwwwwp wwwwwwwwww wwwwwwwwwwp wwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwp wwwwwwww wwwwwwwp wwwwww wwwwwwwwwww wwwwwwp wwwwwwwwwwwwwwp wwwwp wwwwwwwwwwwwwwwwwwp wwwwwww wwwwwp wwwww wwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwww wwwwp wwwwwwwwwwwwwwwwwp wwwww wwwwwwwwwwwwwwwp wwwwp wwwwww wwwwwwwwwwwwwww wwwwwp wwwwwwp wwwwwwwwwwwww wwwwwp wwwwwwwp wwwwwwwwwww wwwwwwp wwwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwwww wwwwwwwwwp wwwwwwwwwwww wwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwp wwwwwwwww wwwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwwwwwwwp wwwwww wwwwwww wwwwp wwwww wwwwwp wwwwwww wwwwp wwwwww DDDDD wwwww wwwwww DDDDD@ wwwww DDDDDDD DDDDDDD@ DDDDDDDDD wpwwp wwwww wwwwww wwwwww wwwwp wwwwwww wwwwww wwwwwwp wwwwwwww wwwwwww wwwwwwwwwwwp wwwwwwwww wwwwwwww wwwwwwwp wwwwwwwwww wwwwwwwwwwp wwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwp wwwwwwww wwwwwwwp wwwwww wwwwwwwwwww wwwwwwp wwwwwwwwwwwwwwp wwwwp wwwwwwwwwwwwwwwwwwp wwwwwww wwwwwp wwwww wwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwww wwwwp wwwwwwwwwwwwwwwwwp wwwww wwwwwwwwwwwwwwwp wwwwp wwwwww wwwwwwwwwwwwwww wwwwwp wwwwwwp wwwwwwwwwwwww wwwwwp wwwwwwwp wwwwwwwwwww wwwwwwp wwwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwwww wwwwwwwwwp wwwwwwwwwwww wwwwwwwwwwwp """"""""""""" ********* ********* ********* ********* """""""""""""" **********" ***********" ************ *********** """""""""""""" ********" *********" ********** ********* """"""""""""" ******" *******" ******** ******* """"""""""""" ***** ****" ***** *****" ***** ****** ***** ***** """"""""""""" ********** ********** ********** ********** xxxxp wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwx wwwwwwwwwwwww wwwwwwwxxxx wwwwwwwwwww wwwwwwwwwwx wwwwwwwwwww wwwwwwwwww wwwwwwwwwwW wwwwwwwwwp wwwwwwwwww twwwwwwwww wwwwwwwww )wwwwwwwwx wwwwwwwww wwwwwwwwpx wwwwwwwwwf wwwwwwww pwwwwwwwww @wwwwwwww wwwwwwww wwwwwwww wwwwwwww Vwwwwwwww wwwwwwww wwwwwwww pwwwp wwwwwwww Gwwwwwwww wwwwwwwwEUwwwwwwww wwwpww wwwwwwww wwwwwwww wwwwwwww xwwwwwwww wwwwwwww wwwwwwww wxxxx wwwwwwwwF wwwwwwwwp wwwwwwww &wwwwwwwwp wxxpwwwwwwwww &wwwwwwwwx wwwwwwwww &wwwwwwwww wwwwwwwww wwwwwwwwwp wwwwwwwwww wwwwwwwwww wwwwwwwwww Fwwwwwwwwwwx wwwwwwwwwww Xwwwwwwwwwww wwwwwwwwwww wwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwx strChecked aboutAnimation isOpen focuswindow = in,false ThreeDeeRect bottomLine topLine ,%H.% 0,100,0 0,0,0 0,100,0 buttonclick 0,100,0 switch tvOn value buttonclick switch (32)+32 (32)+32 -- (32)+32 out,true ThreeDeeRect bottomLine topLine false about screen buttonclick buttonclick isOpen "tv 1" tvOn T"screen" close "about" childloc frame lastTime Animation Book Created in ToolBook 3.0 Asymetrix Corporation screen lastTime strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked J 2!J strChecked strChecked strChecked strChecked j!R"J strChecked strChecked strChecked B"*#J strChecked strChecked strChecked strChecked b#J$J strChecked strChecked strChecked :$"%J strChecked strChecked strChecked strChecked Z%B&J strChecked strChecked strChecked strChecked z&b'J strChecked strChecked strChecked R':(J strChecked strChecked strChecked strChecked J(2)J strChecked strChecked strChecked strChecked j)R*J strChecked strChecked strChecked B**+J strChecked strChecked strChecked strChecked b+J,J strChecked strChecked strChecked :,"-J strChecked strChecked strChecked strChecked Z-B.J strChecked strChecked strChecked strChecked z.b/J strChecked strChecked strChecked strChecked strChecked strChecked strChecked J021J strChecked strChecked strChecked strChecked j1*2J strChecked childloc screen lastTime clock angle enterbackground strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked Written by Joseph Brickkkin ToolBook 3.0 Asymetrix Corporation maxBounce 30,17,-1 myInfo 30,16,-1 strChecked strChecked strChecked aboutAnimation 0,0,0 screen screen = tvOn Animation Book Created in ToolBook 3.0 Asymetrix Corporation screen ,%H.% 0,100,0 0,0,0 0,100,0 tvOn value lastTime strChecked strChecked strChecked tv switch screen lastTime strChecked strChecked strChecked strChecked strChecked screen 66,67,68,23,78 curPat itemoffset patternlist notifybefore patternlist = "66,67,68,23,78" curPat = nextPat = itemoffset( !,patternList) lastTime strChecked strChecked strChecked screen lastTime strChecked placeholder strChecked credit strChecked Janet Strongtensen credit strChecked Artwork byyyyyyy enterpage leavepage strChecked u u!u"u#u$u%u&u'u(u)u*u+u,u 1u2u3u4u5u6u7u#z9u:u;u<u=u>u?u@uAuBuCuDuEuFuGuHuIuJuKuLuMuNuOuPuQuRuSuTuUuVuWuXuYuZu[u\u]u^u_u`uaubucudueufuguhuiujukulumunuoupuqurusutu Useful Scripts Animating with color Useful scripts myChapter myChapterID visited chapterCount topicCount Animating with color label strChecked Not all animation involves moving or hiding objects. You can create an animation just by setting the colors of various objects. The object representing the TV screen has a script that cycles its rgbFill property through 512 colors of the RGB spectrum. Each panel of the colorful sculpture on the right cycles through four colors..h four colors.ur colors. out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked in,true ThreeDeeRect strChecked strChecked bottomLine l | J strChecked topLine strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked curColor fucurColor gucurColor notifybefore Zcolorlist[4] 1]=128,128,0 2]=255,0,255 +3]=0,128,128 ;=0,255,0 curColor = k4 + 1 orgbfill colorList[ curColor strChecked curColor fucurColor gucurColor notifybefore Zcolorlist[4] 1]=128,128,0 2]=255,0,255 +3]=0,128,128 ;=0,255,0 curColor = k4 + 1 orgbfill colorList[ curColor strChecked curColor fucurColor gucurColor -- cycles through four colors notifybefore Zcolorlist[4] 1]=128,128,0 2]=255,0,255 +3]=0,128,128 ;=0,255,0 curColor = k4 + 1 orgbfill colorList[ curColor strChecked curColor fucurColor gucurColor notifybefore Zcolorlist[4] 1]=128,128,0 2]=255,0,255 +3]=0,128,128 ;=0,255,0 curColor = k4 + 1 orgbfill colorList[ curColor strChecked strChecked strChecked strChecked strChecked strChecked 6 F J strChecked strChecked Z!j!J strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked 0&@&J strChecked strChecked T'd'J strChecked strChecked j(z(J strChecked strChecked strChecked .*>*J strChecked strChecked "+2+J strChecked strChecked strChecked strChecked .&, " .&, " oplastTime timegettime -- cycle through 512 colors the rgb spectrum. notifybefore inc = 32 -- amount each orgbfill r = (r+ g = (g+ b = (b+ lastTime timegettime() 20B0J R0^0mp strChecked lastTime strChecked o 44& strChecked .2>2J strChecked strChecked strChecked strChecked strChecked strChecked strChecked F6V6J strChecked strChecked strChecked &868J strChecked strChecked J9Z9J strChecked strChecked false Animating with color Untitled Simulating gravity Useful scripts myChapter myChapterID chapterCount topicCount false visited Simulating gravity label strChecked This page has a useful handler for animating falling objects. You provide the handler with the object that you want to "drop," how tall that object is supposed to be, where the ground is, and the starting speed of the object. Press the Animate button on the right to see a demonstration.nstration. out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked in,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked ground strChecked strChecked .animate buttondown animate message, handled strChecked out,false ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked Animate thought strChecked thought5 strChecked thought4 strChecked thought3 strChecked thought2 strChecked thought1 strChecked ground finaly accelerate animate animate finaly = U"ground" accelerate ,2,finalY ,1.5, 5625,684 origloc strChecked strChecked strChecked strChecked Simulating Gravity Script recorder Timing animation Useful scripts myChapter myChapterID visited Timing animation label strChecked When you want animation to move at a particular speed regardless of the machine it's on, you can write a handler to check the time during the animation process. The function timeGetTime() in the mmsystem DLL file is useful for this purpose. This function returns the time in milliseconds. The mmsystem DLL comes with Windows 3.1. out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked in,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked d t J strChecked The animated globe above is a series of 16 frames. The buttons controlling its speed set a user property of the globe called Delay to various values (0 for "Fast," 60 for "medium," and 120 for "Slow"). The script in the globe checks to see if at least that many milliseconds have passed before displaying the next frame.... speedControl strChecked globe delay buttonclick buttonclick delay "globe" strChecked Fa&st globe delay buttonclick buttonclick delay "globe" strChecked &Medium globe delay buttonclick buttonclick delay "globe" strChecked Slo&w strChecked globe 216412,4,0 strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked b r J strChecked strChecked strChecked enterpage false Timing Animation Moving along a line " v , Useful scripts myChapter myChapterID false visited chapterCount topicCount Moving along a line label strChecked Often, you just want to move an object along a straight line. This page contains a handler for doing that. You pass it the object you want to move, the line that you want to move the object along, and how many steps you want to take along the line. Note that this handler will move an object along angled lines as well. Once you've positioned the guiding lines, you can hide them. strChecked PmoveObjectAlongPath buttonclick buttonclick -- sends message handled moveObjectAlongPath m"path",15 strChecked in,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked Click each of the ellipses above to see them move along their respective paths. PmoveObjectAlongPath buttonclick buttonclick -- sends message handled moveObjectAlongPath "yoyo",40 strChecked Moving Along a Line content chapterCount topicCount selectChars false visited strChecked outline lineheight hotfield outfield sizeSample adjustsize sized enterpage reader -- initialize the sized hotfield = "sizeSample" outfield = "outline" ypix = sysPageUnitsPerPixel o = b = syssuspendmessages = adjustsize ylineheight o,3) notifybefore notifyAfter strChecked sizeSample strChecked sizeSample strChecked outline strChecked Moving objects 2 Position property 3 Script recorder 4 Move command 5 Move to command 7 Move by command 6 Moving on idle 8 Frame animation 9 How it works 10 Hiding and showing 11 Animating buttons 12 Useful scripts 13 Animating with color 14 Simulating gravity 15 Timing animation 16 Moving along a line 17 17 17e 17Moving in a Arc 91ipts 65 Animating with color 87 Simulating Gravity 67 Timing Animation 66 Moving Along a Line 90 Moving in a Arc 91 marker vertLoc vertLoc b value ypix = syspageunitsperpixel s = halfH = C- 3* strChecked cancel spacer outline LPscrollToSelectedTextLine Enter title for this chapter. Untitled title buttonclick buttonclick ("Enter title chapter." f"Untitled" o = "outline" & spacer() & New selectedtextlines scrollToSelectedTextLine strChecked New Chapter... cancel Enter title for this topic. spacer outline LPscrollToSelectedTextLine Untitled tline title buttonclick buttonclick ("Enter title f"Untitled" t = =& spacer() & " o = "outline" stl = selectedTextLines M = textlineCount( k& t selectedtextlines scrollToSelectedTextLine strChecked New Topic... editTopic cancel extractName extractID Change title of this spacer chapterOrTopic outline chapter topic newTitle idnum title buttonclick buttonclick chapterOrTopic = " o = "outline" stl = selectedTextLines tlineNum = t = Btlinenum title = extractName(t) idnum = extractID(t) -- Localization issue ("Change " && &"." newTitle = ZnewLine O& spacer() & strChecked Edit Title... strChecked strChecked strChecked Topics Chapter headings updateBook ainitPage buttonclick buttonclick updateBook "Chapter headings" "Topics" initPage close strChecked strChecked Rearrange chapters and topics by dragging and dropping them. buttonclick buttonclick close strChecked Cancel enterpage reader toolbar ComboBox xcombobox focuswindow = false visited strChecked previous buttonclick buttonclick -- sends the message currentPage strChecked buttonclick buttonclick -- sends the tmessage currentPage strChecked heading raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values faceText strChecked highlight strChecked Moving objectsnts shadow strChecked Moving objectsnts " 2 J strChecked Moving objectsnts buttonclick buttonclick currentPage focuswindow = strChecked tableOfContents tableOfContents buttonclick buttonclick -- handled Hthe message navigates -- table contents tableOfContents currentPage strChecked Table of contents SectionLabel strChecked Section: outline @4bookOverview buttonup bookOverview strChecked topics topics buttonclick buttonclick -- causes navigation chapter heading currentPage focuswindow = strChecked Topics train b;origloc train animate b;origloc train initAnimation animate t = "train" rightMost = p = moveAmount = 45 origloc initAnimation t = false visited strChecked train -1485,90 origloc strChecked pageUnits false visited Page Units: Each pixel on the screen is several page units wide by several units tall. The amount varies depending on your screen resolution. The sysPageUnitsPerPixel system property will tell you how many page units there are for each horizontal and vertical pixel represented on the screen. For example, in standard VGA, there are 15 page units per horizontal pixel and 15 per vertical pixel. strChecked strChecked scriptRecorderPopup1 false visited scriptRecorderPopup1 To use the script recorder: 1. Make sure the objects you want to move are not selected. 2. Choose Start Recording from the Edit menu. 3. Drag the objects along the path you want them to follow, clicking frequently to record the movement. 4. Choose Stop Recording from the Edit menu. 5. In the script of the button that starts the animation, choose Paste Recording from the script editor's Edit menu.. strChecked strChecked scriptRecorderPopup2 false visited Guidelines for using the script recorder: The main advantage of the script recorder is that you can create animation without writing scripts. However, there are also disadvantages: Difficult to modify To change a recorded animation, you must either edit the script ToolBook created or record the animation again. Difficult to create smooth movement It may be hard to create uniform spacing and direction between each step of the animation. If you need to create smooth, easily modifiable animation, you may want to examine the topics in the Useful Scripts section of this book....... strChecked strChecked tableOfContents false visited Guidelines for using the script recorder: The main advantage of the script recorder is that you can create animation without writin Terminal Courier Move command Moving objects myChapter myChapterID false visited chapterCount topicCount Move command label strChecked Moving an object involves setting its position property for each step of the animation. Usually this is accomplished in a loop structure, such as step or while. The commands to use for moving an object are move to and move by. Toolbook uses page units as the unit of measure to specify position.lled page units... pageUnitsPopup buttonclick buttonclick "pageUnitsPopup" strChecked strChecked Move <object> to <position> This command moves the specified object to the position supplied, for example: move polygon "x" to 0,0 Moves it to the upper-left corner of the screen.een.. raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values strChecked highlight strChecked move toe Commandperty shadow strChecked move toe Commandperty strChecked move toe Commandperty raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values strChecked highlight strChecked move bye Commandperty shadow strChecked move bye Commandperty strChecked move bye Commandperty strChecked Move <object> by <amount> This command moves the object by the x and y amounts supplied, for example: move polygon "x" by 45,60 Moves it 45 page units to the right and 60 down. s downits down Hiding and showing Move by command Moving objects myChapter myChapterID chapterCount topicCount visited Move by command label Use the move by command when you want to move an object relative to its current position. For example, the command "move rectangle id 1 by 45,90" would move this object 45 page units to the right and 90 page units down. This example uses move by in a loop to move the golf ball into the hole. The amount that the ball moves for each loop is calculated from the positions of the two objects. Note that the ball goes into the hole no matter where it starts from. out,true ThreeDeeRect bottomLine topLine in,true ThreeDeeRect bottomLine topLine green .animate buttonup -- sends the animate message handled out,false ThreeDeeRect bottomLine topLine Animate strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked false strChecked strChecked command Animating buttons Creating animated buttons Move to command orbit moonRef animate -- moves the along animate -- optimization: store {reference %we will -- be refering moonRef = sz = -- we are going walk , so let's -- cache them vs = "orbit" come a list pairs -- one each vertex. For iteration loop, -- we grab y positions E, subtract half ball's positioning relative that (vs) Moving objects myChapter myChapterID chapterCount topicCount visited Move to command label Use move to to move an object to a specific place. This is useful when the animated path of one object is relative to the positions of other objects. The example at the right shows a moon orbiting a planet. The path that the moon follows is not an ellipse; it's a polygon with 50 vertices. The example script simply moves the moon object to each vertex of the polygon, one after the other.ther. out,true ThreeDeeRect bottomLine topLine in,true ThreeDeeRect bottomLine topLine orbit .animate buttondown -- sends the animate message handled out,false ThreeDeeRect bottomLine topLine Animate strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked false strChecked strChecked command Moving on idle Moving objects myChapter myChapterID false visited Moving on idle label strChecked Whenever ToolBook is not running scripts, it receives the idle message. If you want an animation to run constantly while nothing else is happening, you can trigger each step of the animation upon the idle message. The advantage to animation driven by the idle message is that you can interrupt the animation at any time to interact with other parts of the application. The key is to handle only one "step" of the animation per execution of the idle handler..... in,true ThreeDeeRect strChecked ballbounds strChecked bottomLine strChecked topLine strChecked in,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked The bouncing ball moves by a small amount upon each execution of the idle handler. Note that you can press any of the buttons on the tool bar or go to another application at any time.during this animation. elapsedTime curDir vector maxBounce -150,13,1 myInfo strChecked Moving on Idle Frame animation My Dogs pageCaption Frame animation myChapter myChapterID myPages chapterCount topicCount Frame animation label visited strChecked A common method to display a complex animation is to create several frames and show them in a series, similar to the way a movie works. This section covers the basics of frame animation.. strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked F V J strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked trailerCountdown lastTime myAngle strChecked strChecked strChecked strChecked minute strChecked counter strChecked enterpage 10,11,12 Frame Animation How it works mation works $('x( Jerry pageCaption Frame animation myChapter myChapterID selectChars chapterCount topicCount visited How it works label strChecked To create frame animation, you display a series of images quickly in sequence, each one slightly different than the one preceding it. The differences between the frames cause the object's apparent movement. The animation at the top is a series of sixteen paint objects, shown individually below. objects Setting resources Page flippingetting resources Page flipping strChecked out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked N ^ J strChecked out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked strChecked strChecked strChecked curFrame myCurFrame myCurFrame newFrame hides shows frames (paintobjects) the globe animation. -- The paintObjects are named "1" notifybefore numFrames = 16 -- curFrame = myCurFrame -- currently showing newFrame = -- store myCurFrame strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked \ l J strChecked strChecked strChecked strChecked strChecked strChecked 2%B%J in,true ThreeDeeRect strChecked strChecked $"&2& bottomLine Z&j&J strChecked topLine strChecked widget slows down everything, notifybefore 2(>(mp L(\(J lastTime strChecked Slow-Mo in,true ThreeDeeRect strChecked strChecked bottomLine *0*J strChecked topLine strChecked V+f+J strChecked This globe animation is a series of paintObjects, shown one after the other.......the other. curFrame myCurFrame mycurframe highlight newFrame moves the over appropriate globe. "globes are numbered "1" notifybefore numFrames = 16 -- paintObjects current showing: curFrame = mycurframe newFrame = myCurFrame myCurFrame strChecked strChecked strChecked "222J strChecked 83H3J strChecked + 4&4 N4^4J strChecked +65<5 d5t5J strChecked +L6R6 strChecked +b7h7 strChecked +x8~8 strChecked strChecked strChecked strChecked strChecked strChecked 6?F?J strChecked N@^@J strChecked highlight <ALAJ strChecked false How it works content toolbar Hiding and showing objects Timothy pageCaption Frame animation myChapter myChapterID chapterCount topicCount visited Hiding and showing label strChecked A common method for creating frame animation is to hide and show objects in a group using the hide and show commands. This animation hides and shows one paint object after another. Each paint object shows the dog in a different position. A user property of the group keeps track of which frame is currently shown. rts of the book, such as pressing the next page button. out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked curFrame myCurFrame myCurFrame newFrame -- This handler controls the animation -- The consists 18 paintobjects, named -- 1 18, respectively. For each execution (sent constantly mode) advanced one frame. currently shown stored %a userProperty notifybefore numFrames = 18 -- paintObjects ping curFrame = myCurFrame -- calculate newFrame = so we know what curdog lastTime myCurFrame strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked 2 ~ D T J in,true ThreeDeeRect strChecked strChecked bottomLine l!|!J strChecked topLine strChecked strChecked The running dog above is a series of 18 frames, shown one after the other. Small differences in the t at least 30 milliseconds have passed before displaying the next frame. This way, no more that 24 frames per second false Animating buttons buttons .&, " newcursor curCursor progressCursor progressCursor = cursor 0 maxCursor = 12 curCursor = currentCursor = newcursor = ( "+ 1) newCursor Frame animation myChapter myChapterID chapterCount topicCount false visited Animating buttons label strChecked Buttons can display bitmap resources, which are stored in the book. In its normal state, a button displays the bitmap resource specified by its normalGraphic property. When you press the button, the button displays its invertGraphic. You can use these properties to create an animation effect. The button on the right displays an animation when clicked.en clicked.............property to display a series of bitmap resources. The button on the right displays an animation when clicked..... in,true ThreeDeeRect bottomLine topLine This button has two frames of animation: one specified by its normalGraphic, the other specified by its invertGraphic, which is displayed when clicked. arrow notifyBefore normalgraphic k6 + 1 bitmap ("arrow"& notifyBefore normalgraphic k4 + 1 bitmap ("cd"& in,true ThreeDeeRect bottomLine topLine These buttons set their normalGraphic property to a series of images.lGraphic, the other specified by its invertGraphic. Position property Useful scripts Useful scripts myChapter myChapterID 14,15,16,17 myPages chapterCount topicCount visited Useful scripts label strChecked This section contains reusable handlers you can use to make writing your animation scripts easier. These buttons set their normalGraphic property to a series of images.lGraphic, the other specified by its invertGraphic. Topics tableOfContents toolbar leavepage previous topics tableOfContents toolbar Table of contents heading enterPage You cannot delete this page. author clear ainitPage -- enable table contents enabled B"tableOfContents" "toolbar" pref = pRef "heading" "Table -- Don't allow deletion "You cannot delete qcutting initialize 4we land on initPage strChecked out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked & : ~ L \ J out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked topic raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values strChecked highlight strChecked Table of contents shadow strChecked Table of contents strChecked Table of contents strChecked Click on one of the topics below to view information on that subject.ubject. toolbar ThreeDeeRect out,true bottomLine topLine strChecked strChecked strChecked strChecked strChecked toolbar strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked tableOfContents myChapter myPages chapterCount topicCount false visited 24,27 selectChars strChecked tableOfContents strChecked strChecked chapter1 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID strChecked Moving objects check1 strChecked strChecked chapter2 The Position Property 59 The Script Recorder 63 The Move Command 68 Move By 58 Move To 57 Moving on Idle 64 topics pageID strChecked Frame animation check2 strChecked strChecked chapter3 Timing Animation 66 Simulating Gravity 67 topics pageID strChecked Useful scriptso check3 strChecked strChecked chapter4 Chickens 26 Goats 25 topics pageID strChecked Blahul Scripts check4 strChecked strChecked chapter5 strChecked check5 strChecked strChecked chapter6 strChecked check6 strChecked strChecked chapter7 strChecked check7 strChecked strChecked chapter8 strChecked check8 strChecked train scriptRecorderPopup1 Moving objects Moving objects myChapter myChapterID 3,4,5,7,6,8 myPages chapterCount topicCount visited selectChars Moving objects label strChecked Most animation involves moving an object from one place to another. The topics in this section discuss the various techniques for moving objects. strChecked placeholder WjpositionChildViewer train <KinitAnimation enterpage train leavepage ,%H.% newbnds positionChildViewer .animate train serves %the placeholder train animation -- on opens . On sends animate message notifyAfter initAnimation positionChildViewer -- close notifyBefore isOpen -- sizes specified r childViewer, bnds newbnds= pageUnitsToClient( strChecked strChecked V f J strChecked leavepage enterpage Moving Objects Move command tv switch Position property Moving objects myChapter myChapterID chapterCount topicCount false visited Position property label str_allback searchString 37,48 selectChars strChecked Each object in ToolBook has a property called position that tells ToolBook where the object sits relative to the top and left edges of the page. Moving an object involves changing this property. Position is a list of two numbers given in page units. In the illustration to the right, drag the object and notice how its position property changes.ow its position property changes..........................m the left side of page, and 865 page units from the top of the page. Its position is "600,865" 865 page units from the top of the page. Its position is "600,865" pageUnitsPopup buttonclick buttonclick "pageUnitsPopup" strChecked in,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked descr strChecked The position is 300,300. he illustration above is 1560,1455. ag the object{ strChecked strChecked strChecked client strChecked strChecked strChecked ToolBook - POSITION.TBKign strChecked strChecked strChecked strChecked File Edit View Page Object Draw strChecked 3005page yline client endpoint endpoint value Znewb cb = client xpix = sysPageUnitsPerPixel ypix = b = w = v1 = x - w v2 = cb + v3 = v1+w v4 = y - fref = sz = fpos = v3 + *2,v2+(v4-v2) y2 - v4 - v2 strChecked strChecked centerLine strChecked xline client endpoint endpoint value Znewb xpix = sysPageUnitsPerPixel ypix = cb = client b = h = v1 = cb + v2 = y - h v3 = x - v4 = v2 + h fref = sz = fpos = v1+(v3-v1) y2 - y2,v4 + v3 - v1 strChecked strChecked centerLine strChecked strChecked 3005page strChecked strChecked strChecked Move by command scriptRecorderPopup2 Script recorder Moving objects myChapter myChapterID visited Script recorder label strChecked You can animate objects without writing scripts yourself by using the script recorder. This is useful when you want to animate one or more objects along an arbitrary path. How to use the script recorder When to use the script recorder The animation to the right was created using the script recorder. e objects around, dragging and dropping for each step of the animation. 4. Choose Stop Recording from the Edit menu. 5. In the script of the button that starts the animation, choose Paste Recording from the script editors Edit menu. scriptRecorderPopup buttonclick buttonclick "scriptRecorderPopup" strChecked scriptRecorderPopup2 buttonclick buttonclick "scriptRecorderPopup2" strChecked strChecked strChecked strChecked B V ~ h x J out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked in,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked balloonpath strChecked cloudpath strChecked cloud strChecked strChecked strChecked strChecked &Button strChecked out,false ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked Animate balloon strChecked false strChecked Move by command scriptRecorderPopup2 Script recorder MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif Times New Roman System Courier New MS Sans Serif MS Sans Serif Courier New Arial Arial MS Sans Serif MS Sans Serif strChecked Courier New page "scriptRecorderPopup2" toolbar page "toolbar" content Arrange Content page "content" train Page "train" pageUnitsPopup location buttonclick buttonclick close scriptRecorderPopup 29,30 ScriptRecorderPopup2 Page "pageunits" page "scriptRecorderPopup1" The Animation Book about page "aboutAnimation" About Animation Book Page "tv 1" extra page "train" screen xopenwindow false screen xcloseWindow xopenwindow tvOn T"screen" currentPage xcloseWindow h ge id 32 435,450 frame screen openwindow closeWindow openwindow currentPage pageUnitsToClient( frame T"screen" closeWindow closeWindow pageUnits pageName Move to command &File &Open... Ctrl+O &Save Ctrl+S Print Set&up... printsetup &Print Pages... Ctrl+P printpages &Run... E&xit Alt+F4 &Edit Aut&hor F3 author &Help &Contents F1 contents &About Animate... about strChecked Chapter Headings strChecked out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked out,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked Topics strChecked strChecked topic1 6 F J pageId strChecked Position propertylorworks check1 strChecked strChecked topic2 pageId strChecked Script recorderity objects 25 check2 strChecked strChecked topic3 pageId strChecked Move commandtions buttons 61 check3 strChecked strChecked Q + 2 topic4 pageId strChecked Move to commandlineuces62 check4 strChecked strChecked topic5 pageId strChecked Move by commandline4 check5 strChecked strChecked topic6 pageId strChecked Moving on idlec check6 strChecked strChecked topic7 pageId strChecked Tonyc7r7 check7 strChecked strChecked topic8 pageId strChecked Barbara8{ check8 strChecked strChecked topic9 strChecked topic9r8E check9 strChecked strChecked topic10 strChecked topic108 check10 strChecked in,true ThreeDeeRect strChecked strChecked bottomLine strChecked topLine strChecked strChecked chapterLabel raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values strChecked highlight 4 D J strChecked Moving objectsnts shadow strChecked Moving objectsnts strChecked Moving objectsnts strChecked Click on one of the topics below to view information on that subject....... strChecked @6v.v.v3 a hidden Bthat writes the %supposedly -- written recorder. animate buttonClick" & -- optimization: store {reference %we will -- be refering balloon = cloud = szb = szc = -- we are going walk , so let's -- cache them vsb = m"balloonpath" vsc = m"cloudpath" come a list pairs -- one each vertex. For iteration loop, -- we grab y positions F, subtract half positioning relative (vsc) xposb yposb xposc yposc highlightColor value shadowColor faceColor sized spupp = syspageunitsperpixel b = syssuspendmessages = highlightColor value shadowColor faceColor sized spupp = syspageunitsperpixel b = syssuspendmessages = notifyBefore velocityConstant = 6 -- info a list needed information %follows: *= myInfo xVector= elapsedTime= currentDirection= bnds = frameBnds = screen yVector = newPosition = -- now that we've moved, let's whether we have change directions ) + 30 >= omaxBounce <= 0 ) >= -1 * buttonClick PaintObject Page 4785,2184 Group 6203,1728 4975,2146 6090,1746 5200,2146 5956,1746 5425,2178 5822,1731 5698,2229 5661,1708 5888,2267 5548,1691 6054,2267 5448,1691 6256,2273 5330,1688 6410,2248 5238,1699 6552, 5153,1711 6647,2184 5097,1728 6849,2133 4977,1752 7027,2108 4871,1763 7193,2108 4773,1763 7335,2121 4688,1757 highlightColor value shadowColor faceColor sized spupp = syspageunitsperpixel b = syssuspendmessages = dial angle ctr = coords = radius = (( ) - ( ())/2 dialAngle = ( _/360) * (2 * PI) - (PI / 2) U"hand" + (.8 * f)), \ (.8 * )/2,\ pagelist = pageList() H360 itemoffset( T) + 1 "tv switch" ("tv" && notifybefore "1,2,5,3" positionChildViewer childViewer, bnds newbnds= pageUnitsToClient( notifyAfter "credit" nameList() vref = "extra" pagescroll currentpage "train" r vRef, initAnimation isOpen notifyBefore animate nl = itemoffset( newName = (nl)+1) close namelist "Janet Strong,Melody Christensen,Shuang Li,Joseph Brick" -- Drag drop outline arrangement -- Joseph Brick, November 93 -- This main dragAndDrop code: buttonclick B"editTopic" ZstartLine,endLine,lineHeight,mybounds,xloc,mytext -- Find Bclicked on. will be starting -- Break user G edge startline < 0 Uwe want n. we value -- later handler, we've a heading: endline = -- lineheight pageUnits (see V below): -- Cache commonly used values xpix = sysPageUnitsPerPixel ypix = myBounds = myText = marker = totalLineCount = we know be between sides -- The following section selects B(s): -- lineList a list corresponding selectedTextLines -- we wish 9-- (We've count = headingOrTopic = " -- Walk down Zwe hit another -- incrementing needed: oselectedTextlines moves arrow up -- targetLine insertion point loop executes mousebutton released: mouseLoc = -- above -- calculate Ucurrently -- there's beyond -- somewhere pnt = -- -- vertLoc -- lineYloc returns `location a given -- -- inside U(s): toward U(s) 1 place -- that we -- numLines + 1 -- targetline > -- we asure moved -- -- original -- "," & scrollToSelectedTextLine stl = b = s = y> s + - numlines,0) font: a hidden b = "sizeSample" units lineNum,b, / - 1 - -- adjusts . Called adjustsize n b = * n + 3* v = v - 5* -- initializes the dialog box structure outline form chapters Ecurrent (curPageNum) highlighted. initPage chapterCount = 0 topicCount = 0 curBackground = -- heading. -- ( headings are on a separate /"Chapter Headings" label chapterName = -- give default -- Localization issue " && U; we'll need comes update & spacer() & /"Topics" pageName = R" && U; we'll trailing outlineField = selectedTextlines -1,1) scrollToSelectedTextline -- store Mcounts -- gets strings following two types: p><tabs>< extractName strng tabOffset = extractID lastTabLoc = -- updates 8based on Qmade updateBook ZcurChapterID,curChapterTitle,pageList,chapterList -- walk through each curTextLine = -- curTitle = -- curID = -- isn't a isChapterPage = "New" -- means we have addNewPage( -- PREVIOUS -- list 's that belong -- The now stored myPages [out -- reset -- will be used table contents. -- pageText( skipNavigation -- needs know which belongs myChapterID -- reorders numbers. follows -- Update "tableOfContents" -- adds a 8. Called Hhandler above. syssuspendmessages = backPage = visited -- returns a . This serves a between listbox. clipped. -- flag %having been visited up toolbar toolbarRef = enabled -- only allow same chapter "heading" myChapter -- initializes the label a user property each content initPage "topicLabel" pressed, contents . myChapterId a userProperty containing . It 8overview dialog box. backpage = (myChapterID updateCheckMarks added, ("Enter f"Untitled" topicName = chapterID = addTopic -- adds myPages pageList = beyond ","& table -- force nextPage = -- previousPage = chapterPage = -- chapterHeading, checkmarks -- navigation deleted. -- test clearing "Warning: This operation cannot be reversed ]Undo." f"OK" "Cancel" cid = cpage = mp = itemOffset( >,mp)>0 >,mp) -- maintain navigational structure f"OK" mp = >,mp)>0 >,mp) -- moves the golf ball hole, no matter where starts animate Zsteps,ballRef,ballLoc,xmove,ymove g. Note: zhigher more slowly will g = 20 -- optimization: store reference Gbe refering over ballref = two positions figure out how far -- we have nthem horizontally vertically on each -- We Hfinding difference -- distances divide holeLoc = -- now that we know loop: somewhere . This randomBallLocation location on reen. greenRef = gbounds = gsize = bSize = xmax = ymax = n)),\ -- This handler accelerates its current a terminating y , simulating earth's gravity. -- Since the animation based on will fall 'same -- on processor. Also, since you provide {'s relative falls should look natural. -- Parameters: -- ob: -- heightInMeters: how tall represented SUPPOSED example, {represents a trash can, F"1" would work.) -- y1: destination y coordinate, where want stop. -- v0: starting `velocity (optional) per -- (note: ToolBook 4, down positive, up negative) ,y1,v0 -- link timeGetTime(): returns milliseconds Xmmsystem xsupplied v0 = 0 obBounds = units heightInTwips = -- find out many < there are twipsPerMeter = constant acceleration due -- ( = 9.8 -- store y0 = t0 = timegettime() loop moves reaches y1 -- elapsed started, t = ( -t0)/1000 -- speed v = (v0 + -- formula -- on v0, y0, Note conversion. y = y0 + (v0*t+.5* *(t^2))* -- y, making sure we haven't gone v >= 0 y = j(y,y1- Zy + >= y1 v >=0 -- shows thought bubble, safe. Drops , bounces animate safeHeight = 2 -- "real life" ( y0 = U"ground" ,y0,-2 ,y0,-.5 -- initialize initAnimation wstate initanimation origloc -- moves {moveObj along pathObj. -- steps movements per segment moveObjectAlongPath "You can only lines angledLines." vert = startX startY obSize = -- here we will figure out how far -- we have nthem horizontally vertically on each -- We Hfinding difference -- distances divide xmove = ( ymove = ( -- now that we know -- loop: -- This {serves %the table contents 8. It updated 'Book Overview dialog box outLine pageList limited maxTopics = 8 listCount = textlineCount( t = -- find that has been visited curG = ("g"&i) o = curField -- extractName(t) -- store links pageID extractID(t) remaining tabs ("g"&i) -- turn on selected goPage = initPage -- highlights "buttons" (they're really fields) value lightGray darkBlue() -- updates checkmarks. Only checks chapter have updateChecks numChapters = 8 -- representing a " -- each made up a checkbutton. ("g"&i) o = -- Yreferences checkref -- stored -- a userProperty myPages subPages = mypages -- walk through -- curID checkRef highlightColor value shadowColor faceColor sized spupp = syspageunitsperpixel b = syssuspendmessages = up toolbar pref = enabled "heading" label -- updates . sent 4the entered that navigates initPage "chapterLabel" pageRef = myPages = topicList updateCheckMarks updateChecks clearing . tells user how readjust "After deleting , choose Book Overview Outline press OK." f"OK" "Cancel" -- same [handler cutting Content f"OK" xallowed on -- This {lives on the "ChapterHeadings" serves $table contents every chapter. Each heading -- has one a userProperty (myPages) containing a -- list idnumbers BookOverview dialog box passed handler via pageList parameter. topicList limited maxTopics = 10 listCount = curPageID -- find out that been visited v = curG = ("g"&i) o = curField curCheck -- update each Mbased on label ( -- checkmark, appropriate p <> v -- store {navigation pageID -- hidden remaining tabs ("g"&i) -- updates checkmarks. called instead coming since only need be updated updateChecks -- representing a " -- made up a checkbutton. curTopic = ("g"&i) o = fieldRef checkRef curPageId = curpageID -- turn on selected goPage = (pageid initPage -- highlights M"buttons" (they're really fields) value lightGray darkBlue() -- sets sweep hand angle/360. At 0, the points up. -- rotation clockwise fullRev = 360 -- constant degrees & revolution. current stored property myAngle -- find coords = ctr = ( ")/2,\ Tradius = (( _) - ( k))/2 radians. (2*PI -- Note: PI/2 subtracted so 0 Lrather than minutesAngle = ( ) * (2 * PI) - (PI / 2) ctr,\ {)), \ -- moves sweephand one around should take 1 complete notifybefore steps = 10 -- millsecs = 1000 -- milliseconds maxDisplay = 9 -- highest zdisplayed curTime = timeGetTime() newAngle = ( kmillSecs)/ we need change fref = "counter" t = t = -- update -- links initializes widget Xmmsystem entering a pasted notifyAfter highlightColor value shadowColor faceColor sized spupp = syspageunitsperpixel b = syssuspendmessages = [ -- 1993,1994. Asymetrix Corporation. All Rights Reserved. /gives you permission e, revise, reuse the -- individual scripts your own -- applications. You may H entire -- substantial part redistribution ` product. retains copyright on original elements . Include notice "Portions 1993, 1994. they contain copied -- tableOfContents message sent Htoolbar pressed Standard ToolBook messages menus, initialize Back handling enterApplication 4s_oldsyshistoryrecord -- used custom 4s_backMessageSent -- turn off enabled c"Outline" alias content Overview" #bookOverview checkmarks bk = visited "tableofcontents" leaveApplication c"outline" -- only puts navigation x* initiated HBACK targetWindow b = behaves like winhelp's ) > 0 b = the way xleaveapplication Utility handlers -- Used list box a dialog store extra information that gets clipped side extractName t tabOffset = beyond a extractID t lastTabLoc = U(t) -- returns numerical location itemOffset itm,lst color middleGray 240,63.5,2.1875 dark darkBlue 240,25.125,100 Navigation -- brings up about %modal pref = updatechecks 8overview chosen initPage -- on , makes ball bounce around within "ballBounds" notifyBefore velocityConstant = 15 -- myInfo a userProperty storing information needed figure out -- where nthe t. It stored a list because -- accessing 1 faster than -- The holds Wfollowing -- < pageUnits moved iterations apex>, -- <current direction: 1 up, -1 down> xVector= elapsedTime= currentDirection= =I have inside bnds = frameBnds = -- Each used a unit Ipassed. At the 0; 3 later, -- ElapsedTime multiplied acceleration constant calculate amount needs nover instance). -- When going , we up, we yVector = newPosition = -- now that we've , let's whether we change `directions -- we've hit ) + 30 >= omaxBounce -- we're <= 0 -- update we've either -- -- ) >= -1 * highlightColor value shadowColor faceColor sized spupp = syspageunitsperpixel b = syssuspendmessages = -- animates globe, consisting 16 paintobjects named "1" notifybefore numFrames = 16 -- -- info a userProp that has three values (1 userProperty quicker read than 3). The Yare: -- < occurred>,<current frame displayed>, -- < delay between frames> Zvars lastTime lastFrame newTime = timeGetTime() vref = period passed. If so, u >= newFrame = -- update newframe increase decrease the speed animation. milliseconds. -- initialize widget Xmmsystem entering a pasted notifyAfter -- the {loc, isShift ZoldX,oldy,newX,newY SM_SWAPBUTTON = 23 b = xGroup = "xLine" yGroup = "yLine" xpix = sysPageUnitsPerPixel ypix = dx = dy = cb = "client" xfield = yfield = descrField = thisWin = Window user has swapped mouse buttons, since returns -- hardware key down. getsystemmetrics( leftMouseButton = loop occurs whole drags (<> loc -- asure within newP = cb + 330, X-dx), cb - ( cb+330, - dy), cb - ( b = y = b + ( x = b + ( -- endpoint handler dimension lines) -- that sizes them. m"cloudpath" come a list pairs -- one each vertex. For iteration loop, -- we grab y positions F, subtract half xposc select end buttonClick cloud to handle buttonClick balloon yposb yposc balloonpath cloudpath xposb move selection to animate .animate buttonup highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized maxBounce myInfo myInfo newPosition screen frameBnds buttonClick highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized angle coords coords angle 1, #? pagelist itemoffset tv switch gpageList buttonup enterbackground 1,2,5,3 pageList newbnds positionChildViewer "knameList credit WjpositionChildViewer extra train <KinitAnimation enterpage "knameList credit itemoffset .animate train newName extra train leavepage Janet Strong,Melody Christensen,Shuang Li,Joseph Brick namelist editTopic buttondoubleclick V, #> mouseLoc marker count headingOrTopic lineHeight targetLine lineList tlines topic llineYloc heading tline IvertLoc buttondown lineHeight scrollToSelectedTextLine lineHeight sizeSample lineHeight lineYloc marker lineHeight adjustsize w, #> .&, #> w, #> .&, #> ,%H.% pageName curBackground outlineField topicCount chapterCount topicCount spacer outline Topics LPscrollToSelectedTextline Topic chapterName curPage Chapter Chapter Headings 0%chapterCount label initPage extractName extractID ,%H.% PBmyPages extractName extractID isChapterPage myChapterID outline addNewPage curID tableOfContents curPage Ioutline curTextLine curTitle label updateBook backPage false Cvisited Topics curID Chapter Headings addNewPage spacer myChapter Cvisited topics previous toolbar heading toolbarRef enterpage topicLabel label initPage backpage myChapterID updateCheckMarks topics cancel topicName Enter name of this topic. author YaddTopic chapterID myChapterID Untitled newPage .&, #> PBmyPages pageList myChapterId topicLabel label ainitPage OBmyPages addTopic nextPage author ainitPage author chapterPage previousPage ainitPage myChapterID updateCheckMarks previous Cancel PBmyPages itemOffset author ainitPage cpage Warning: This operation cannot be reversed using Undo. myChapterID OBmyPages clear Cancel PBmyPages itemOffset author ainitPage cpage Warning: This operation cannot be reversed using Undo. myChapterID OBmyPages holeLoc randomBallLocation animate green ballRef gbounds gsize bSize greenRef randomBallLocation obBounds timeGetTime timegettime timeGetTime mmsystem accelerate ,%H.% safeHeight ground thought accelerate <KinitAnimation animate ,%H.% thought b;origloc initanimation startY You can only move objects along lines or angledLines. startX line,angledLine obSize moveObjectAlongPath extractName extractID pageID curField outLine false goPage Zselected pageID ainitPage buttondown [darkBlue selected checkref false Cvisited subPages curID pageID pageID OBmypages value updateChecks highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized previous topics toolbar heading label enterpage myPages topics topicList pageRef chapterLabel label OBmyPages initPage topics updateChecks OBmyPages updateCheckMarks Cancel After deleting this page, choose Book Overview from the Outline menu, and press OK. author clear Cancel author After cutting this page, choose Book Overview from the Content menu, and press OK. ainitPage author previous curCheck Cvisited pageID curField curPageID label topicList checkRef fieldRef Cvisited curPageId pageID curTopic updateChecks false goPage Zselected pageid ainitPage buttondown [darkBlue selected {:myAngle coords minute sweep .&, " sweep maxDisplay timeGetTime curTime z:myAngle counter timeGetTime sweep timeGetTime counter mmsystem enterpage highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized ,%H.% bookOverview false author Cvisited Outline topics tableofcontents toolbar content Content Book Overview s_backMessageSent s_oldsyshistoryrecord enterApplication outline leaveApplication false toolbar s_backMessageSent leavepage .&, " toolbar s_backMessageSent You are all the way back. xleaveapplication Content xleaveapplication .&, " extractName extractID ,%H.% itemOffset O@middleGray 9@darkBlue about about tableOfContents tableofcontents updatechecks tableOfContents content ainitPage bookOverview reader .&, 7 maxBounce myInfo ballBounds myInfo newPosition frameBnds highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized lastTime newTime timeGetTime lastFrame newFrame delay timeGetTime timeGetTime mmsystem enterpage SM_SWAPBUTTON descr client xLine yLine 5nendpoint yGroup getsystemmetrics yfield thisWin getsystemmetrics xGroup xfield descrField buttonDown Chapter Headings Topics out,true ThreeDeeRect bottomLine topLine out,true ThreeDeeRect bottomLine topLine in,true ThreeDeeRect bottomLine topLine raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values highlight Move to commandtynerttonss shadow Move to commandtynerttonss Move to commandtynerttonss topicLabel strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked strChecked getsystemmetrics xGroup xfield descrField buttonDown Chapter Headings Topics NN,qNN ;qqvO 8'4 r D880808;8 @@xxR D0D88 8m8Dc YYBITEDIT EXE PALEDIT EXE WINCOMT DLL WRKBNCHTDLL MEDIMPT MMH MEDBITSTMMH TB30PDX DLL DIB DRV DLG HLP MENUEDITHLP ICONEDITHLP TB30 HLP BITEDIT HLP 3DD;3 4458q xt414 wWsOO 86110 7ssp4 x?OHuOVS`1 _E7787 pMaeo dd788 W6OO8 7885OOW xsOOCh VVS_p oOO?x OOcco v6Wv7 sVV6x s/OOg 86V8 6VVQc oOO?ss OOV?Fs 1!!/p 6VVOp 131316=1 14;;? 1@@I; 6@@9@ = 10w 11;11 wq3Q91 wws ; `5;30 `;053 1AV;1 V\VLVLV\ F\F\VLV\VE eieieieie ieieieieie ieieieieie ieieieieie ieieie` `ieieieie ieieieieie ieieieieie ieieieieie ieiei`0 PP!@ AVxP` pwG?p VTTVTVTP 991911 `ieieieie ieieieieie ieieieieie iee 5 eieieieie ieieieieie ieieieie `0o`0o` 07wpw wpwwx xwwxxwwxx wwxxwwxxww xxwwxxwwxx wwxxwwxxwp xwwxxwwxx wwxxwwxxww xxwwxxwwxx wwxxwwxxwp