Listing 1. CanDo Deck For Playing A BrushANIM ************* * Deck "ZPlayBAnim" * Time 20:58:25 * Date 09/26/93 ************* ************* * Card(s) in deck. * Card "PlayBAnim" ************* * 1 Card(s), 1 were printed. ************* ************* * Natural order of Cards * Card "PlayBAnim" ************* ************* * There are no Global routines in this deck. ************* ************* * Card "PlayBAnim" PictureWindow "UserWindow" Definition Origin 0,0 BackgroundImage "CanDo:Anims/SIN(X*Y)-40.pic" ; size and depth comes from image Title "Play Brush Animation (Full Size)" WindowColors 0,1,0 ; Detail, Block, Background WindowObjects CLOSEBUTTON WindowFlags ACTIVATE SEPARATESCREEN TOFRONT EndScript OnCloseButton Quit EndScript EndObject TextButton "PlayBAnim" Definition Origin 200,138 Font "topaz",8 ; FontName, PointSize PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2 TextColors 1,0,NORMAL ; PenA, PenB, DrawMode Text " Play BAnim " Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen Highlight COMPLEMENT ButtonFlags NONE EndScript OnRelease ShowBrushAnim "CanDo:anims/sin(x*y)-40.banim",0,0 Let I=0 Loop MoveBrushAnim "CanDo:anims/sin(x*y)-40.banim",5,0,0,0,10,QUEUE MoveBrushAnim "CanDo:anims/sin(x*y)-40.banim",0,5,0,0,10,QUEUE MoveBrushAnim "CanDo:anims/sin(x*y)-40.banim",-5,0,0,0,10,QUEUE MoveBrushAnim "CanDo:anims/sin(x*y)-40.banim",0,-5,0,0,10,QUEUE Let I=I+1 Until I=5 BrushAnims ON EndScript EndObject TextButton "StopBAnim" Definition Origin 200,180 Font "topaz",8 ; FontName, PointSize PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2 TextColors 1,0,NORMAL ; PenA, PenB, DrawMode Text " Stop BAnim " Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen Highlight COMPLEMENT ButtonFlags NONE EndScript OnRelease BrushAnims OFF EndScript EndObject BrushAnimFrame "BrushAnim_1-FRAME20_1" Definition BrushAnimBuffer "CanDo:Anims/sin(x*y)-40.banim" Frame 20 ; The BrushAnim frame number EndScript Occurred PlaySound "RCF:CanDo2.51/Sounds/Boing.snd" EndScript EndObject BrushAnimFrame "BrushAnim_1-FRAME40_1" Definition BrushAnimBuffer "CanDo:Anims/sin(x*y)-40.banim" Frame 40 ; The BrushAnim frame number EndScript Occurred PlaySound "RCF:CanDo2.51/Sounds/Boing.snd" EndScript EndObject BrushAnim "SoundSync" Definition BrushAnimBuffer "CanDo:Anims/sin(x*y)-40.banim" EndScript EndObject * End of Card "PlayBAnim" *************