home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX1 / ELLIPSES.ST < prev    next >
Text File  |  1990-02-09  |  299b  |  22 lines
  1.  
  2. "Create a window and a graphpane in it"
  3.  
  4. | test myPen x y|
  5. test := GraphPane openWindow: 'My'.
  6. myPen := test pen.
  7. myPen up.
  8. myPen goto: 160 @ 160.
  9. y:= 150.
  10. x := 50.
  11. myPen down.
  12. 60 timesRepeat: [
  13.         myPen ellipse: x minor:y.
  14.         x := x + 2.
  15.         y := y - 2.]
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.