version 1.5, 2002/07/14 03:57:24 |
version 1.6, 2002/07/14 07:10:01 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.4 2002/07/10 08:40:58 takayama Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.5 2002/07/14 03:57:24 takayama Exp $ */ |
/* $Id$ */ |
/* $Id$ */ |
|
|
|
|
Line 147 def glib_check_arg(X,Y) { |
|
Line 147 def glib_check_arg(X,Y) { |
|
} |
} |
} |
} |
|
|
/*&usage begin: glib_putpixel(X,Y | color) |
/*&usage begin: glib_putpixel(X,Y|color) |
It puts a pixel at [{X},{Y}] with {color} |
It puts a pixel at [{X},{Y}] with {color} |
example: glib_putpixel(1,2 | color=0xffff00); |
example: glib_putpixel(1,2 | color=0xffff00); |
end: */ |
end: */ |
Line 169 def glib_putpixel(X,Y) { |
|
Line 169 def glib_putpixel(X,Y) { |
|
} |
} |
} |
} |
|
|
/*&usage begin: glib_line(X0,Y0,X1,Y1 | color) |
/*&usage begin: glib_line(X0,Y0,X1,Y1|color) |
It draw the line [{X0},{Y0}]-- [{X1},{Y1}]with {color} |
It draw the line [{X0},{Y0}]-- [{X1},{Y1}]with {color} |
example: glib_line(0,0,5,3/2 | color=0xff00ff); |
example: glib_line(0,0,5,3/2 | color=0xff00ff); |
end: */ |
end: */ |
Line 281 def glib_clip1_y(X0,Y0,X1,Y1,Clip) { |
|
Line 281 def glib_clip1_y(X0,Y0,X1,Y1,Clip) { |
|
return([X0,Y0,X1,Y1]); |
return([X0,Y0,X1,Y1]); |
} |
} |
|
|
/*&usage begin:glib_print(X,Y,Text|color) |
/*&usage begin: glib_print(X,Y,Text|color) |
It put a string {Text} at [{X},{Y}] on the glib canvas. |
It put a string {Text} at [{X},{Y}] on the glib canvas. |
example: glib_print(100,100,"Hello Worlds" | color=0xff0000); |
example: glib_print(100,100,"Hello Worlds" | color=0xff0000); |
end: */ |
end: */ |
Line 317 def glib_history(L) { |
|
Line 317 def glib_history(L) { |
|
return 0; |
return 0; |
} |
} |
|
|
/*&usage begin:glib_tops() |
/*&usage begin: glib_tops() |
If Glib_ps is set to 1, |
If Glib_ps is set to 1, |
it returns a postscript program to draw the picture on the canvas. |
it returns a postscript program to draw the picture on the canvas. |
end: */ |
end: */ |