version 1.19, 2006/03/08 07:59:15 |
version 1.20, 2008/08/07 06:00:34 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.18 2006/03/08 04:58:15 takayama Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.19 2006/03/08 07:59:15 takayama Exp $ */ |
|
|
/* BUG: this library has not yet been adapted to the new automatic launcher |
/* BUG: this library has not yet been adapted to the new automatic launcher |
of ox_plot. 2002, Aug, 4. Do not load glib more than twice. |
of ox_plot. 2002, Aug, 4. Do not load glib more than twice. |
Line 235 def glib_putpixel(X,Y) { |
|
Line 235 def glib_putpixel(X,Y) { |
|
} |
} |
} |
} |
|
|
/*&usage begin: glib_line(X0,Y0,X1,Y1|color) |
/*&usage begin: glib_line(X0,Y0,X1,Y1|color,shape) |
It draws the line [{X0},{Y0}]-- [{X1},{Y1}] with {color} |
It draws the line [{X0},{Y0}]-- [{X1},{Y1}] with {color} and {shape} |
example: glib_line(0,0,5,3/2 | color=0xff00ff); |
example: glib_line(0,0,5,3/2 | color=0xff00ff); |
|
glib_line(0,0,10,0 | shape=arrow); |
end: */ |
end: */ |
def glib_line(X0,Y0,X1,Y1) { |
def glib_line(X0,Y0,X1,Y1) { |
extern Glib_xmag, Glib_ymag, Glib_xoffset, Glib_yoffset; |
extern Glib_xmag, Glib_ymag, Glib_xoffset, Glib_yoffset; |
Line 248 def glib_line(X0,Y0,X1,Y1) { |
|
Line 249 def glib_line(X0,Y0,X1,Y1) { |
|
glib_floor(Glib_ymag*(Y0+Glib_yoffset)), |
glib_floor(Glib_ymag*(Y0+Glib_yoffset)), |
glib_floor(Glib_xmag*(X1+Glib_xoffset)), |
glib_floor(Glib_xmag*(X1+Glib_xoffset)), |
glib_floor(Glib_ymag*(Y1+Glib_yoffset)),C); |
glib_floor(Glib_ymag*(Y1+Glib_yoffset)),C); |
|
Shape = getopt(shape); |
|
if (type(Shape) != 2) return; |
|
Px = X0+(7/8)*(X1-X0); |
|
Py = Y0+(7/8)*(Y1-Y0); |
|
Qx = (Y0-Y1)/8; |
|
Qy = (X1-X0)/8; |
|
if (type(C)>0) glib_line(X1,Y1,Px+Qx,Py+Qy | color=C); |
|
else glib_line(X1,Y1,Px+Qx,Py+Qy); |
|
if (type(C)>0) glib_line(X1,Y1,Px-Qx,Py-Qy | color=C); |
|
else glib_line(X1,Y1,Px-Qx,Py-Qy); |
} |
} |
|
|
def glib_clip_line(X0,Y0,X1,Y1,Color) { |
def glib_clip_line(X0,Y0,X1,Y1,Color) { |