home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / HOUSES.TRU < prev    next >
Encoding:
Text File  |  1985-01-21  |  1.0 KB  |  36 lines
  1. ! Draws three houses using pictures
  2. !
  3. SET Window 0, 10, 0, 10
  4. SET BACK "green"
  5. OPTION ANGLE degrees
  6. DRAW House with Scale(1)*Shift(7,6)
  7. DRAW House with Scale(1.5)*Shift(1.8,4)
  8. DRAW House with Rotate(45)*Scale(2,1.6)*Shift(6.2,1.8)
  9. END
  10.  
  11.  
  12. PICTURE House
  13.     SET COLOR "cyan"                       
  14.     PLOT area: -1,-1; -1,1; 1,1; 1,-1      ! The house itself
  15.  
  16.     SET COLOR "magenta"
  17.     PLOT area: -1,1; 0,1.5; 1,1                    ! Its roof
  18.     PLOT area: -1,1; -1,1.4; -.8,1.4; -.8,1     ! and chimney
  19.  
  20.     SET COLOR "white"
  21.     PLOT area: -.15,-1; -.15,-.3; .15,-.3; .15,-1    ! A door
  22.  
  23.     DRAW Window with Shift(-.5,-.5)           ! and 4 windows
  24.     DRAW Window with Shift(-.5,.5)
  25.     DRAW Window with Shift(.5,.5)
  26.     DRAW Window with Shift(.5,-.5)
  27. END PICTURE
  28.  
  29. PICTURE Window
  30.     SET COLOR "background"
  31.     PLOT area: -.1,-.2; -.1,.2; .1,.2; .1,-.2   ! The window
  32.     SET COLOR "white"
  33.     PLOT -.1,0; .1,0                         ! and its sills
  34.     PLOT 0,-.2;0,.2
  35. END PICTURE
  36.