home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
FFILLY
/
Kouza12
/
mizu2.tfy
< prev
next >
Wrap
Text File
|
1997-01-03
|
725b
|
34 lines
//mizu2.tfy DRAWサンプル4b
main(){
int dot,pic,width,height;
int x,y,r,col,color[];
color[0]=0x000000;
color[1]=0xff0000;
color[2]=0x0000ff;
color[3]=0xff00ff;
color[4]=0x00ff00;
color[5]=0xffff00;
color[6]=0x00ffff;
color[7]=0xffffff;
width=640;
height=480;
dot=LoadPic("1pixel.bmp");
pic=CreatePic(dot,width,height);
SetLineSize(1);
SetPaintColor(0xffffff);
DrawRect(pic,0,0,width,height);
SetPaintColor(0x000000);
DrawRect(pic,10,10,width-10,height-10);
SetPaintColor(0xffffff);
OpenWin(pic);
SetROP(10);
mes(TIME){
r=Random(200);
x=Random(640);
y=Random(480);
col=Random(7)+1;
SetPaintColor(color[col]);
DrawCircle(pic,x,y,x+r,y+r);
}
mes(LBDOWN){}
}