home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
RB3641.ZIP
/
EX1
/
ELLIPSES.ST
< prev
next >
Wrap
Text File
|
1990-02-09
|
299b
|
22 lines
"Create a window and a graphpane in it"
| test myPen x y|
test := GraphPane openWindow: 'My'.
myPen := test pen.
myPen up.
myPen goto: 160 @ 160.
y:= 150.
x := 50.
myPen down.
60 timesRepeat: [
myPen ellipse: x minor:y.
x := x + 2.
y := y - 2.]