// Text of project Anime written on 5/9/95 at 12:16 PM
// Beginning of file Anime.t

// Before Script for "AnimeMain"
nil // Copyright © 1993-1995 Apple Computer.  All rights reserved.


AnimeMain :=
    {title: "IdleScript Anime",
     viewBounds: {left: -24, top: 2, right: 163, bottom: 277},
     viewFlags: 5,
     viewFormat: 328017,
     debug: "AnimeMain",
     _proto: @157
    };

speed500DrawView :=
    {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,
     debug: "speed500DrawView",
     viewClass: 74
    };
AddStepForm(AnimeMain, speed500DrawView);
StepDeclare(AnimeMain, speed500DrawView, 'speed500DrawView);



speed1000DrawView :=
    {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,
     debug: "speed1000DrawView",
     viewClass: 74
    };
AddStepForm(AnimeMain, speed1000DrawView);
StepDeclare(AnimeMain, speed1000DrawView, 'speed1000DrawView);



speed2000DrawView :=
    {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,
     debug: "speed2000DrawView",
     viewClass: 74
    };
AddStepForm(AnimeMain, speed2000DrawView);
StepDeclare(AnimeMain, speed2000DrawView, 'speed2000DrawView);



speed4000DrawView :=
    {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,
     debug: "speed4000DrawView",
     viewClass: 74
    };
AddStepForm(AnimeMain, speed4000DrawView);
StepDeclare(AnimeMain, speed4000DrawView, 'speed4000DrawView);



bobButton :=
    {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,
     debug: "bobButton",
     _proto: @198
    };
AddStepForm(AnimeMain, bobButton);
StepDeclare(AnimeMain, bobButton, 'bobButton);




constant |layout_Anime.t| := AnimeMain;
// End of file Anime.t