home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / sm331a.zip / RECT.SM < prev    next >
Text File  |  1994-08-22  |  692b  |  20 lines
  1. graph                                           # graph mode
  2.  
  3. #rectangl(x1_,y1_,x2_,y2_) := block(line(x1,y1,x2,y1),line(x2,y1,x2,y2),
  4. #line(x2,y2,x1,y2),line(x1,y2,x1,y1))
  5.  
  6. rectangl(10,50,20,60)
  7. do(rectangl(100,10+y*10,110,20+y*10),y,1,2,1)
  8. do(rectangl(200+y*10,10,210+y*10,20),y,1,2,1)
  9. do(rectangl(200+y*10,20,210+y*10,30),y,1,2,1)
  10. do(rectangl(300+y*10,10,310+y*10,20),y,1,2,1)
  11. do(rectangl(300+y*10,50,310+y*10,60),y,1,2,1)
  12.  
  13. #do(rectangl(210,10+y*10,220,20+y*10),y,1,2,1)
  14. #do(rectangl(200,10+y*10,210,20+y*10),y,1,10,1)
  15. #rectangl(190,50,200,60)
  16. #rectangl(210,50,220,60)
  17.  
  18. readchar                                        # pause graph by read a char
  19. text                        # text mode
  20.