home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / GRAPH.SM < prev    next >
Encoding:
Text File  |  1993-11-09  |  373 b   |  9 lines
  1. #    this is demo for drawing a group of circles and ovals.
  2. #    Circles are 9 planets around sun.
  3.  
  4. graph                                           # graph mode
  5. do(circle(getmaxx*0.5+2.5*x,getmaxy*0.5,5), x,0,90,10)  
  6. do(oval(getmaxx*0.5,getmaxy*0.5,2.5*x,x), x,10,90,10)
  7. readchar                                        # pause graph by read a char
  8. text                        # text mode
  9.