home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Newton Sample Code 1.2 / Drawing / IdleScript Anime-2 / Anime.text < prev    next >
Encoding:
Text File  |  1994-02-28  |  6.0 KB  |  223 lines  |  [TEXT/MPS ]
  1. // Copyright © 1993-94 Apple Computer, Inc. All rights reserved.
  2.  
  3. constant kAppName := '|Anime:PIEDTS|;
  4.  
  5. // ---- End Project Data ----
  6.  
  7.  
  8. // ---- File Anime.t ----
  9. AnimeMain :=
  10.    {title: "IdleScript Anime",
  11.     viewBounds: {left: -24, top: 2, right: 163, bottom: 277},
  12.     viewFlags: 5,
  13.     viewFormat: 328017,
  14.     _proto: protoApp,
  15.     debug: "AnimeMain"
  16.    };
  17.  
  18. speed500DrawView := /* child of AnimeMain */
  19.    {viewFlags: 33,
  20.     viewFormat: 336,
  21.     viewBounds: {left: 17, top: 41, right: 96, bottom: 112},
  22.     viewDrawScript:
  23.       func()
  24.       begin
  25.          local yMax := viewBounds.bottom - viewBounds.top;
  26.          local xMax := viewBounds.right - viewBounds.left;
  27.       
  28.          myX := Random(0,xMax);
  29.          myY := Random(0,yMax);
  30.          myRad := Random(1,30);
  31.       
  32.          myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
  33.             :DrawShape(myCircle,nil);
  34.          myLine := MakeLine(xMax div 2, yMax,myX,myY);
  35.             :DrawShape(myLine,nil);
  36.          myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
  37.             :DrawShape(myLine,nil);
  38.          myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
  39.             :DrawShape(myLine,nil);
  40.          myLine := MakeLine(0,0,xMax, yMax);
  41.             :DrawShape(myLine,nil);
  42.       end,
  43.     viewSetupDoneScript:
  44.       func()
  45.       begin
  46.          :SetupIdle(500);
  47.       end,
  48.     viewIdleScript:
  49.       func()
  50.       begin
  51.       //This should return the number of milliseconds to delay. NIL if no more idling.
  52.          :Dirty();
  53.          RefreshViews();
  54.          500
  55.       end,
  56.     viewclass: 74,
  57.     debug: "speed500DrawView"
  58.    };
  59. // View speed500DrawView is declared to AnimeMain
  60.  
  61.  
  62.  
  63. speed1000DrawView := /* child of AnimeMain */
  64.    {viewFlags: 33,
  65.     viewFormat: 336,
  66.     viewBounds: {left: 105, top: 41, right: 184, bottom: 112},
  67.     viewDrawScript:
  68.       func()
  69.       begin
  70.          local yMax := viewBounds.bottom - viewBounds.top;
  71.          local xMax := viewBounds.right - viewBounds.left;
  72.       
  73.          myX := Random(0,xMax);
  74.          myY := Random(0,yMax);
  75.          myRad := Random(1,30);
  76.       
  77.          myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
  78.             :DrawShape(myCircle,nil);
  79.          myLine := MakeLine(xMax div 2, yMax,myX,myY);
  80.             :DrawShape(myLine,nil);
  81.          myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
  82.             :DrawShape(myLine,nil);
  83.          myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
  84.             :DrawShape(myLine,nil);
  85.          myLine := MakeLine(0,0,xMax, yMax);
  86.             :DrawShape(myLine,nil);
  87.       end,
  88.     viewSetupDoneScript:
  89.       func()
  90.       begin
  91.          :SetupIdle(1000);
  92.       end,
  93.     viewIdleScript:
  94.       func()
  95.       begin
  96.       //This should return the number of milliseconds to delay. NIL if no more idling.
  97.          :Dirty();
  98.          RefreshViews();
  99.          1000
  100.       end,
  101.     viewclass: 74,
  102.     debug: "speed1000DrawView"
  103.    };
  104. // View speed1000DrawView is declared to AnimeMain
  105.  
  106.  
  107.  
  108. speed2000DrawView := /* child of AnimeMain */
  109.    {viewFlags: 33,
  110.     viewFormat: 336,
  111.     viewBounds: {left: 17, top: 121, right: 96, bottom: 192},
  112.     viewDrawScript:
  113.       func()
  114.       begin
  115.          local yMax := viewBounds.bottom - viewBounds.top;
  116.          local xMax := viewBounds.right - viewBounds.left;
  117.       
  118.          myX := Random(0,xMax);
  119.          myY := Random(0,yMax);
  120.          myRad := Random(1,30);
  121.       
  122.          myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
  123.             :DrawShape(myCircle,nil);
  124.          myLine := MakeLine(xMax div 2, yMax,myX,myY);
  125.             :DrawShape(myLine,nil);
  126.          myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
  127.             :DrawShape(myLine,nil);
  128.          myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
  129.             :DrawShape(myLine,nil);
  130.          myLine := MakeLine(0,0,xMax, yMax);
  131.             :DrawShape(myLine,nil);
  132.       end,
  133.     viewSetupDoneScript:
  134.       func()
  135.       begin
  136.          :SetupIdle(2000);
  137.       end,
  138.     viewIdleScript:
  139.       func()
  140.       begin
  141.       //This should return the number of milliseconds to delay. NIL if no more idling.
  142.          :Dirty();
  143.          RefreshViews();
  144.          2000
  145.       end,
  146.     viewclass: 74,
  147.     debug: "speed2000DrawView"
  148.    };
  149. // View speed2000DrawView is declared to AnimeMain
  150.  
  151.  
  152.  
  153. speed4000DrawView := /* child of AnimeMain */
  154.    {viewFlags: 33,
  155.     viewFormat: 336,
  156.     viewBounds: {left: 105, top: 121, right: 184, bottom: 192},
  157.     viewDrawScript:
  158.       func()
  159.       begin
  160.          local yMax := viewBounds.bottom - viewBounds.top;
  161.          local xMax := viewBounds.right - viewBounds.left;
  162.       
  163.          myX := Random(0,xMax);
  164.          myY := Random(0,yMax);
  165.          myRad := Random(1,30);
  166.       
  167.          myCircle := MakeOval(myX-myRad,myY-myRad,myX+myRad,myY+myRad);
  168.             :DrawShape(myCircle,nil);
  169.          myLine := MakeLine(xMax div 2, yMax,myX,myY);
  170.             :DrawShape(myLine,nil);
  171.          myLine := MakeLine(0,yMax div 2, xMax, yMax div 2);
  172.             :DrawShape(myLine,nil);
  173.          myLine := MakeLine((xMax div 2), 0, (xMax div 2), yMax);
  174.             :DrawShape(myLine,nil);
  175.          myLine := MakeLine(0,0,xMax, yMax);
  176.             :DrawShape(myLine,nil);
  177.       end,
  178.     viewSetupDoneScript:
  179.       func()
  180.       begin
  181.          :SetupIdle(4000);
  182.       end,
  183.     viewIdleScript:
  184.       func()
  185.       begin
  186.       //This should return the number of milliseconds to delay. NIL if no more idling.
  187.          :Dirty();
  188.          RefreshViews();
  189.          4000
  190.       end,
  191.     viewclass: 74,
  192.     debug: "speed4000DrawView"
  193.    };
  194. // View speed4000DrawView is declared to AnimeMain
  195.  
  196.  
  197.  
  198. bobButton := /* child of AnimeMain */
  199.    {viewBounds: {left: 74, top: 194, right: 134, bottom: 238},
  200.     viewFlags: 515,
  201.     icon: GetPictAsBits("bobFace", 1),
  202.     viewFormat: 67109457,
  203.     viewEffect: 0,
  204.     viewTransferMode: 0,
  205.     buttonClickScript:
  206.       func()
  207.       begin
  208.          PlaySound(ROM_wakeupbeep);
  209.       end,
  210.     _proto: protoPictureButton,
  211.     debug: "bobButton"
  212.    };
  213. // View bobButton is declared to AnimeMain
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221. // ---- Beginning of section for non used Layout files ----
  222.  
  223. // End of output