home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Misc / Cookie / Source / BattleZone.psw < prev    next >
Encoding:
Text File  |  1995-06-12  |  262 b   |  18 lines
  1. defineps DisplayBattleFrame(float width, height; float lines[5]; int red,green,blue)
  2.  
  3. 0.0 setgray
  4. 0 0 width height rectfill
  5.  
  6. 1.0 setgray
  7.  
  8. /count 0 def
  9.  
  10. 5
  11. { newpath
  12.    0 lines count get moveto
  13.    width 0 rlineto
  14.    stroke
  15.    /count count 1 add def
  16. } repeat
  17.  
  18. endps