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"
*************