home *** CD-ROM | disk | FTP | other *** search
/ PC Format (Spanish) 3 / PCF3.iso / formula / drawing.sx_ / drawing.sx
Text File  |  1996-04-02  |  538b  |  30 lines
  1. //////////////////////////
  2. // Harrow Software 1996
  3. // Bitmap examples
  4.  
  5. clear window color 192,192,192
  6.  
  7. ///////////////////////////
  8. // (1) - drawing a few objects
  9.  
  10. load "barbara.gif" bitmap b
  11. p = @b.palette
  12. display palette p
  13. bitmap b transparency 0,0,0
  14. polygon 400,300; 10,150; 0,0; 300,50 bitmap b
  15.  
  16.  
  17. return
  18.  
  19. // draw some pixels
  20.  
  21. for x = 10 to 20
  22.     set pixel x,10 color 255,255,255
  23.  
  24. // draw a line
  25.  
  26. set pixel 0,0 to 100,100 color 255,255,0 width 4
  27.  
  28. // draw a polygon
  29.  
  30. polygon 0,0; 200,100; 100,200 color 255,0,0