// Copyright © 1993-94 Apple Computer, Inc. All rights reserved.

constant kAppName := '|Anime:PIEDTS|;

// ---- End Project Data ----


// ---- File Anime.t ----
AnimeMain :=
   {title: "IdleScript Anime",
    viewBounds: {left: -24, top: 2, right: 163, bottom: 277},
    viewFlags: 5,
    viewFormat: 328017,
    _proto: protoApp,
    debug: "AnimeMain"
   };

speed500DrawView := /* child of AnimeMain */
   {viewFlags: 33,
    viewFormat: 336,
    viewBounds: {left: 17, top: 41, right: 96, bottom: 112},
    viewDrawScript:
      func()
      begin
         local yMax := viewBounds.bottom - viewBounds.top;
         local xMax := viewBounds.right - viewBounds.left;
      
         myX := Random(0,xMax);
         myY := Random(0,yMax);
         myRad := Random(1,30);
      
         myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
            :DrawShape(myCircle,nil);
         myLine := MakeLine(xMax div 2, yMax,myX,myY);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
            :DrawShape(myLine,nil);
         myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,0,xMax, yMax);
            :DrawShape(myLine,nil);
      end,
    viewSetupDoneScript:
      func()
      begin
         :SetupIdle(500);
      end,
    viewIdleScript:
      func()
      begin
      //This should return the number of milliseconds to delay. NIL if no more idling.
         :Dirty();
         RefreshViews();
         500
      end,
    viewclass: 74,
    debug: "speed500DrawView"
   };
// View speed500DrawView is declared to AnimeMain



speed1000DrawView := /* child of AnimeMain */
   {viewFlags: 33,
    viewFormat: 336,
    viewBounds: {left: 105, top: 41, right: 184, bottom: 112},
    viewDrawScript:
      func()
      begin
         local yMax := viewBounds.bottom - viewBounds.top;
         local xMax := viewBounds.right - viewBounds.left;
      
         myX := Random(0,xMax);
         myY := Random(0,yMax);
         myRad := Random(1,30);
      
         myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
            :DrawShape(myCircle,nil);
         myLine := MakeLine(xMax div 2, yMax,myX,myY);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
            :DrawShape(myLine,nil);
         myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,0,xMax, yMax);
            :DrawShape(myLine,nil);
      end,
    viewSetupDoneScript:
      func()
      begin
         :SetupIdle(1000);
      end,
    viewIdleScript:
      func()
      begin
      //This should return the number of milliseconds to delay. NIL if no more idling.
         :Dirty();
         RefreshViews();
         1000
      end,
    viewclass: 74,
    debug: "speed1000DrawView"
   };
// View speed1000DrawView is declared to AnimeMain



speed2000DrawView := /* child of AnimeMain */
   {viewFlags: 33,
    viewFormat: 336,
    viewBounds: {left: 17, top: 121, right: 96, bottom: 192},
    viewDrawScript:
      func()
      begin
         local yMax := viewBounds.bottom - viewBounds.top;
         local xMax := viewBounds.right - viewBounds.left;
      
         myX := Random(0,xMax);
         myY := Random(0,yMax);
         myRad := Random(1,30);
      
         myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
            :DrawShape(myCircle,nil);
         myLine := MakeLine(xMax div 2, yMax,myX,myY);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
            :DrawShape(myLine,nil);
         myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,0,xMax, yMax);
            :DrawShape(myLine,nil);
      end,
    viewSetupDoneScript:
      func()
      begin
         :SetupIdle(2000);
      end,
    viewIdleScript:
      func()
      begin
      //This should return the number of milliseconds to delay. NIL if no more idling.
         :Dirty();
         RefreshViews();
         2000
      end,
    viewclass: 74,
    debug: "speed2000DrawView"
   };
// View speed2000DrawView is declared to AnimeMain



speed4000DrawView := /* child of AnimeMain */
   {viewFlags: 33,
    viewFormat: 336,
    viewBounds: {left: 105, top: 121, right: 184, bottom: 192},
    viewDrawScript:
      func()
      begin
         local yMax := viewBounds.bottom - viewBounds.top;
         local xMax := viewBounds.right - viewBounds.left;
      
         myX := Random(0,xMax);
         myY := Random(0,yMax);
         myRad := Random(1,30);
      
         myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
            :DrawShape(myCircle,nil);
         myLine := MakeLine(xMax div 2, yMax,myX,myY);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
            :DrawShape(myLine,nil);
         myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
            :DrawShape(myLine,nil);
         myLine := MakeLine(0,0,xMax, yMax);
            :DrawShape(myLine,nil);
      end,
    viewSetupDoneScript:
      func()
      begin
         :SetupIdle(4000);
      end,
    viewIdleScript:
      func()
      begin
      //This should return the number of milliseconds to delay. NIL if no more idling.
         :Dirty();
         RefreshViews();
         4000
      end,
    viewclass: 74,
    debug: "speed4000DrawView"
   };
// View speed4000DrawView is declared to AnimeMain



bobButton := /* child of AnimeMain */
   {viewBounds: {left: 74, top: 194, right: 134, bottom: 238},
    viewFlags: 515,
    icon: GetPictAsBits("bobFace", 1),
    viewFormat: 67109457,
    viewEffect: 0,
    viewTransferMode: 0,
    buttonClickScript:
      func()
      begin
         PlaySound(ROM_wakeupbeep);
      end,
    _proto: protoPictureButton,
    debug: "bobButton"
   };
// View bobButton is declared to AnimeMain







// ---- Beginning of section for non used Layout files ----

// End of output