home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Format (Spanish) 3
/
PCF3.iso
/
formula
/
drawing.sx_
/
drawing.sx
Wrap
Text File
|
1996-04-02
|
538b
|
30 lines
//////////////////////////
// Harrow Software 1996
// Bitmap examples
clear window color 192,192,192
///////////////////////////
// (1) - drawing a few objects
load "barbara.gif" bitmap b
p = @b.palette
display palette p
bitmap b transparency 0,0,0
polygon 400,300; 10,150; 0,0; 300,50 bitmap b
return
// draw some pixels
for x = 10 to 20
set pixel x,10 color 255,255,255
// draw a line
set pixel 0,0 to 100,100 color 255,255,0 width 4
// draw a polygon
polygon 0,0; 200,100; 100,200 color 255,0,0