1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
void boite(integer x,integer y,integer dx,integer dy,integer coul)
{
integer i;
integer xi,yi,xo,yo;
/* debug('boite'); */
hide_mouse();
if (res==1)
{
x= (cardinal)x >> 1;
dx= (cardinal)dx >> 1;
}
xi=x; yi=y; xo=x; yo=y;
for( i=0; i <= dx+dy; i ++)
{
putpix(gd,xi,yi,coul);
if (xi==x+dx) {
if (gd!=cga) putpix(gd,pred(integer,xi),yi,coul);
yi=succ(integer,yi);
}
else xi=succ(integer,xi);
putpix(gd,xo,yo,coul);
if (yo==y+dy) xo=succ(integer,xo);
else {
if (gd!=cga) putpix(gd,succ(integer,xo),yo,coul);
yo=succ(integer,yo);
}
}
show_mouse();
}
|
