=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/glib,v retrieving revision 1.2 retrieving revision 1.14 diff -u -p -r1.2 -r1.14 --- OpenXM_contrib2/asir2000/lib/glib 2002/01/04 01:35:24 1.2 +++ OpenXM_contrib2/asir2000/lib/glib 2004/03/11 12:25:20 1.14 @@ -1,34 +1,35 @@ -/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.1 2001/12/10 05:02:46 takayama Exp $ */ -/* $Id: glib,v 1.2 2002/01/04 01:35:24 takayama Exp $ */ +/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.13 2004/03/11 05:16:11 takayama Exp $ */ +/* $Id: glib,v 1.14 2004/03/11 12:25:20 takayama Exp $ */ -/* Todo: - 1. Some functions should be moved to longname +/* 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. */ +#define DO_NOT_START_SERVER_EXPLICITLY + /* #define CLIP 1 */ /* #define DEBUG 1 */ #define LIST 4 -/* General sugar functions */ -def floor(N) { +def glib_floor(N) { return(pari(floor,N)); } +/* def join(A,B) { if (type(B) == 0) return(A); return(append(A,B)); } - def eigenvalues(M) { return(pari(eigen,M)); } - def roots(F) { return(pari(roots,F)); } +*/ /* ---------------------------------------------- */ -def ox_get_errors(P) { +def glib_ox_get_errors(P) { ox_push_cmd(P,276); return(ox_pop_cmo(P)); } @@ -39,28 +40,28 @@ def reset_plot() { ox_reset(Glib_process); print(" Done."); } +Glib_ps = 0$ +Glib_h = []$ Glib_canvas_x = 400$ Glib_canvas_y = 400$ Glib_xmin=0$ Glib_xmax=Glib_canvas_x$ Glib_ymin=0$ Glib_ymax=Glib_canvas_y$ -#define START_SERVER \ -extern Glib_server_started, Glib_process$ \ -if (type(Glib_server_started) == 0) { \ - Glib_process = ox_launch_nox(0,"ox_plot")$ \ - register_handler(reset_plot); \ - Glib_server_started = 1$ \ -}$ +Glib_math_coordinate=0$ + Glib_canvas = -1$ Glib_xmag = 1$ Glib_ymag=1$ Glib_xoffset=0$ Glib_yoffset=0$ Glib_safe_mode = 2 $ Glib_counter = 100$ def open_Canvas(P,S) { - open_canvas(P,S); + extern Glib_process; + if (P < 0) P=open_canvas(S); /* BUG, get process No. */ + else open_canvas(P,S); + Glib_process = P; R = ox_pop_cmo(P); /* - if (ox_get_errors(P) == []) { + if (glib_ox_get_errors(P) == []) { R = ox_pop_cmo(P); }else{ debug; @@ -69,11 +70,30 @@ def open_Canvas(P,S) { return(R); } +/*&usage begin: glib_open() + It starts the ox_plot server and opens a canvas. + The canvas size is set to {Glib_canvas_x} X {Glib_canvas_y} + (the default value is 400). + This function is automatically called when the user calls glib + functions. +end: */ + def glib_open() { extern Glib_canvas_x, Glib_canvas_y, - Glib_process, Glib_canvas; - START_SERVER + Glib_process, Glib_canvas, + Glib_server_started, Glib_process$ +#ifndef DO_NOT_START_SERVER_EXPLICITLY +if (type(Glib_server_started) == 0) { + Glib_process = ox_launch_nox(0,"ox_plot")$ + register_handler(reset_plot); + Glib_server_started = 1$ + }$ Glib_canvas = open_Canvas(Glib_process,[Glib_canvas_x,Glib_canvas_y])$ +#else + Glib_canvas = open_Canvas(-1,[Glib_canvas_x,Glib_canvas_y])$ + register_handler(reset_plot); + Glib_server_started = 1$ +#endif glib_check_strict(); return(Glib_canvas); } @@ -100,7 +120,7 @@ def glib_check_strict() { if (Glib_canvas < 0) { glib_open(); } - E = ox_get_errors(Glib_process); + E = glib_ox_get_errors(Glib_process); if (E != []) { ox_pops(Glib_process,200); print(E); @@ -118,6 +138,14 @@ def glib_clear() { clear_canvas(Glib_process,Glib_canvas); } +/*&usage begin: glib_window(Xmin,Ymin,Xmax,Ymax) + It generates a window with the left top corner [{Xmin},{Ymin}] and + the right bottom corner [{Xmax},{Ymax}]. + If the global variable {Glib_math_coordinate} is set to 1, mathematical + coordinate system will be employed, i.e., the left top + corner will have the coordinate [{Xmin},{Ymax}]. + example: glib_window(-1,-1,10,10); +end: */ def glib_window(Xmin,Ymin,Xmax,Ymax) { extern Glib_xmin, Glib_xmax, Glib_ymin, Glib_ymax, Glib_canvas_x, Glib_canvas_y, Glib_process, Glib_canvas, @@ -144,34 +172,61 @@ def glib_check_arg(X,Y) { } } +/*&usage begin: glib_putpixel(X,Y|color) + It puts a pixel at [{X},{Y}] with {color} + example: glib_putpixel(1,2 | color=0xffff00); +end: */ def glib_putpixel(X,Y) { extern Glib_process, Glib_canvas, - Glib_xoffset, Glib_yoffset, Glib_xmag, Glib_ymag; + Glib_xoffset, Glib_yoffset, Glib_xmag, Glib_ymag, Glib_ps, + Glib_math_coordinate, Glib_canvas_y; if (Glib_canvas < 0) glib_open(); glib_check(); glib_check_arg(X,Y); - draw_obj(Glib_process,Glib_canvas, - [floor(Glib_xmag*(X+Glib_xoffset)), - floor(Glib_ymag*(Y+Glib_yoffset))]); + C = getopt(color); + if (Glib_math_coordinate) { + Pos = [glib_floor(Glib_xmag*(X+Glib_xoffset)), + Glib_canvas_y-glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + Pos2= [glib_floor(Glib_xmag*(X+Glib_xoffset)), + glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + }else{ + Pos = [glib_floor(Glib_xmag*(X+Glib_xoffset)), + glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + Pos2= [glib_floor(Glib_xmag*(X+Glib_xoffset)), + Glib_canvas_y-glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + } + if ( type(C) != -1 ) { + draw_obj(Glib_process,Glib_canvas,Pos,C); + if (Glib_ps) glib_history(["putpixel",Pos2,C]); + }else{ + draw_obj(Glib_process,Glib_canvas,Pos); + if (Glib_ps) glib_history(["putpixel",Pos2,0]); + } } +/*&usage begin: glib_line(X0,Y0,X1,Y1|color) + It draws the line [{X0},{Y0}]-- [{X1},{Y1}] with {color} + example: glib_line(0,0,5,3/2 | color=0xff00ff); +end: */ def glib_line(X0,Y0,X1,Y1) { extern Glib_xmag, Glib_ymag, Glib_xoffset, Glib_yoffset; + C = getopt(color); glib_check_arg(X0,Y0); glib_check_arg(X1,Y1); - glib_clip_line(floor(Glib_xmag*(X0+Glib_xoffset)), - floor(Glib_ymag*(Y0+Glib_yoffset)), - floor(Glib_xmag*(X1+Glib_xoffset)), - floor(Glib_ymag*(Y1+Glib_yoffset))); + glib_clip_line(glib_floor(Glib_xmag*(X0+Glib_xoffset)), + glib_floor(Glib_ymag*(Y0+Glib_yoffset)), + glib_floor(Glib_xmag*(X1+Glib_xoffset)), + glib_floor(Glib_ymag*(Y1+Glib_yoffset)),C); } -def glib_clip_line(X0,Y0,X1,Y1) { +def glib_clip_line(X0,Y0,X1,Y1,Color) { /* X0, Y0, X1, Y1 should be integers. Coordinates are already translated. */ - extern Glib_process, Glib_canvas, Glib_canvas_x, Glib_canvas_y; + extern Glib_process, Glib_canvas, Glib_canvas_x, Glib_canvas_y, + Glib_ps, Glib_math_coordinate; if (Glib_canvas < 0) glib_open(); -#ifdef CLIP +if (Glib_ps) { #ifdef DEBUG print(["clip_line",[X0,Y0,X1,Y1]]); #endif @@ -207,11 +262,25 @@ def glib_clip_line(X0,Y0,X1,Y1) { #ifdef DEBUG print([X0,Y0,X1,Y1]); #endif -#endif +} + glib_check(); - draw_obj(Glib_process,Glib_canvas, - [floor(X0),floor(Y0),floor(X1),floor(Y1)]); - + if (Glib_math_coordinate) { + Pos = [glib_floor(X0),Glib_canvas_y-glib_floor(Y0), + glib_floor(X1),Glib_canvas_y-glib_floor(Y1)]; + Pos2= [glib_floor(X0),glib_floor(Y0),glib_floor(X1),glib_floor(Y1)]; + }else{ + Pos = [glib_floor(X0),glib_floor(Y0),glib_floor(X1),glib_floor(Y1)]; + Pos2 = [glib_floor(X0),Glib_canvas_y-glib_floor(Y0), + glib_floor(X1),Glib_canvas_y-glib_floor(Y1)]; + } + if ( type(Color) != -1 ) { + draw_obj(Glib_process,Glib_canvas,Pos,Color); + if (Glib_ps) glib_history(["line",Pos2,Color]); + }else{ + draw_obj(Glib_process,Glib_canvas,Pos); + if (Glib_ps) glib_history(["line",Pos2,0]); + } } def glib_clip0_x(X0,Y0,X1,Y1,Clip) { @@ -254,5 +323,146 @@ def glib_clip1_y(X0,Y0,X1,Y1,Clip) { } return([X0,Y0,X1,Y1]); } + +/*&usage begin: glib_print(X,Y,Text|color) + It put a string {Text} at [{X},{Y}] on the glib canvas. + example: glib_print(100,100,"Hello Worlds" | color=0xff0000); +end: */ +def glib_print(X,Y,Text) { + extern Glib_process, Glib_canvas, + Glib_xoffset, Glib_yoffset, Glib_xmag, Glib_ymag, Glib_ps, + Glib_math_coordinate, Glib_canvas_y; + if (Glib_canvas < 0) glib_open(); + glib_check(); + glib_check_arg(X,Y); + if (type(Text) != 7) error("glib_print(X,Y,Text): Text must be a string."); + C = getopt(color); + if (Glib_math_coordinate) { + Pos = [glib_floor(Glib_xmag*(X+Glib_xoffset)), + Glib_canvas_y-glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + Pos2= [glib_floor(Glib_xmag*(X+Glib_xoffset)), + glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + }else{ + Pos = [glib_floor(Glib_xmag*(X+Glib_xoffset)), + glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + Pos2= [glib_floor(Glib_xmag*(X+Glib_xoffset)), + Glib_canvas_y-glib_floor(Glib_ymag*(Y+Glib_yoffset))]; + } + if ( type(C) != -1 ) { + draw_string(Glib_process,Glib_canvas,Pos,Text,C); + if (Glib_ps) glib_history(["print",Pos2,Text,C]); + }else{ + draw_string(Glib_process,Glib_canvas,Pos,Text); + if (Glib_ps) glib_history(["print",Pos2,Text,0]); + } +} + +def glib_history(L) { + extern Glib_h, Glib_canvas_x, Glib_canvas_y, + Glib_math_coodinate; + if (L[0] == "putpixel" || L[0] == "print") { + if (L[1][0] <= Glib_canvas_x && L[1][0] >= 0) { + if (L[1][1] <= Glib_canvas_x && L[1][1] >= 0) + Glib_h = cons(L,Glib_h); + } + }else { + Glib_h = cons(L,Glib_h); + } + return 0; +} + +/*&usage begin: glib_tops() + If Glib_ps is set to 1, + it returns a postscript program to draw the picture on the canvas. + ref: print_output +end: */ +def glib_tops() { + extern Glib_h; + return glib_ps(Glib_h); +} +def glib_ps(L) { + PS = string_to_tb(""); + Prev_color = 0; + /* Prolog */ + write_to_tb("%%!PS-Adobe-1.0\n",PS); + write_to_tb("%%BoundingBox: 0 0 " + + rtostr(Glib_canvas_x) + " " + rtostr(Glib_canvas_y) + "\n",PS); + write_to_tb("%%Creator: This is generated by ifplot\n",PS); + write_to_tb("%%Title: ifplot\n",PS); + write_to_tb("%%EndComments: \n",PS); + write_to_tb("0.1 setlinewidth \n",PS); + write_to_tb("2 setlinecap \n",PS); + write_to_tb("2 setlinejoin \n",PS); + write_to_tb("/ifplot_putpixel { \n",PS); + write_to_tb(" /yyy 2 1 roll def /xxx 2 1 roll def \n",PS); + write_to_tb(" gsave newpath xxx yyy .5 0 360 arc \n",PS); + write_to_tb(" fill grestore \n",PS); + write_to_tb("} def \n",PS); + + L = reverse(L); + N = length(L); + for (I=0; I