home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX1 / GRAPH.ST < prev    next >
Text File  |  1990-02-15  |  2KB  |  68 lines

  1.  
  2.       "Panes - Solutions to exercises
  3.  
  4.       "Create a window and a graphpane in it. Draw a few lines:"
  5.  
  6.         | test myPen x y|
  7.         test := GraphPane openWindow: 'My'.
  8.         myPen := test pen.
  9.         myPen goto: 100 @ 100.
  10.         myPen goto: 200 @ 100.
  11.         myPen goto: 200 @ 200.
  12.         myPen goto: 100 @ 200.
  13.         myPen goto: 100 @ 100.
  14.  
  15.       "The same result can be achieved by evaluating the 
  16.       following ( Do It ):"
  17.  
  18.         | test myPen x y|
  19.         test := GraphPane openWindow: 'My'.
  20.         myPen := test pen.
  21.         myPen goto: 100 @ 100.
  22.         myPen box: 200 @ 200.
  23.  
  24.       "Pen can also be 'lifted up' like this:"
  25.  
  26.         | test myPen x y|
  27.         test := GraphPane openWindow: 'My'.
  28.         myPen := test pen.
  29.         myPen up.
  30.         myPen goto: 150 @ 150.
  31.         myPen down.
  32.         myPen circle: 100.
  33.  
  34.       "Since Pen is a subclass of TextTool, we can also write 
  35.       some text like this:"
  36.  
  37.         | test myPen x y|
  38.         test := GraphPane openWindow: 'My'.
  39.         myPen := test pen.
  40.         myPen up.
  41.         myPen goto: 150 @ 150.
  42.         myPen down.
  43.         myPen circle: 100.
  44.         myPen displayText: 'My circle!'.
  45.  
  46.       "Finally, let's draw a series of ellipses:"
  47.  
  48.         | test myPen x y|
  49.         test := GraphPane openWindow: 'My'.
  50.         myPen := test pen.
  51.         myPen up.
  52.         myPen goto: 160 @ 160.
  53.         y:= 150.
  54.         x := 50.
  55.         myPen down.
  56.         60 timesRepeat: [
  57.                 myPen ellipse: x minor:y.
  58.                 x := x + 2.
  59.                 y := y - 2.]
  60.         
  61.  
  62.       "***** END OF EXERCISE *****"
  63.       
  64.       
  65.       
  66.       
  67.       
  68.