=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/glib,v retrieving revision 1.1 retrieving revision 1.10 diff -u -p -r1.1 -r1.10 --- OpenXM_contrib2/asir2000/lib/glib 2001/12/10 05:02:46 1.1 +++ OpenXM_contrib2/asir2000/lib/glib 2002/08/08 08:56:31 1.10 @@ -1,34 +1,33 @@ -/* $OpenXM$ */ -/* $Id: glib,v 1.1 2001/12/10 05:02:46 takayama Exp $ */ +/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.9 2002/08/04 00:11:25 takayama Exp $ */ +/* $Id: glib,v 1.10 2002/08/08 08:56:31 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 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,6 +38,8 @@ 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$ @@ -60,7 +61,7 @@ def open_Canvas(P,S) { open_canvas(P,S); R = ox_pop_cmo(P); /* - if (ox_get_errors(P) == []) { + if (glib_ox_get_errors(P) == []) { R = ox_pop_cmo(P); }else{ debug; @@ -69,6 +70,14 @@ 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; @@ -100,7 +109,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,12 +127,18 @@ 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}]. + 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, Glib_xoffset, Glib_yoffset, Glib_xmag, Glib_ymag; if (Xmax <= Xmin) error("glib window: Invalid size"); if (Ymax <= Ymin) error("glib window: Invalid size"); + glib_check_arg(Xmin,Ymin); glib_check_arg(Xmax,Ymax); Glib_xmin = Xmin; Glib_xmax = Xmax; Glib_ymin = Ymin; Glib_ymax = Ymax; Glib_xoffset = -Xmin; @@ -133,31 +148,61 @@ def glib_window(Xmin,Ymin,Xmax,Ymax) { if (Glib_canvas < 0) glib_open(); } +def glib_check_arg(X,Y) { + if (type(X) <= 1 && type(Y) <= 1) return 1; + else { + print("Error in glib: arguments ",0); + print([X,Y],0); + print(" are not numbers."); + error("Invalid argument for glib_window, glib_putpixel, glib_line."); + } +} + +/*&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; if (Glib_canvas < 0) glib_open(); glib_check(); - draw_obj(Glib_process,Glib_canvas, - [floor(Glib_xmag*(X+Glib_xoffset)), - floor(Glib_ymag*(Y+Glib_yoffset))]); + glib_check_arg(X,Y); + C = getopt(color); + Pos = [glib_floor(Glib_xmag*(X+Glib_xoffset)), + 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",Pos,C]); + }else{ + draw_obj(Glib_process,Glib_canvas,Pos); + if (Glib_ps) glib_history(["putpixel",Pos,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; - 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))); + C = getopt(color); + glib_check_arg(X0,Y0); + glib_check_arg(X1,Y1); + 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; if (Glib_canvas < 0) glib_open(); -#ifdef CLIP +if (Glib_ps) { #ifdef DEBUG print(["clip_line",[X0,Y0,X1,Y1]]); #endif @@ -193,11 +238,17 @@ 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)]); - + Pos = [glib_floor(X0),glib_floor(Y0),glib_floor(X1),glib_floor(Y1)]; + if ( type(Color) != -1 ) { + draw_obj(Glib_process,Glib_canvas,Pos,Color); + if (Glib_ps) glib_history(["line",Pos,Color]); + }else{ + draw_obj(Glib_process,Glib_canvas,Pos); + if (Glib_ps) glib_history(["line",Pos,0]); + } } def glib_clip0_x(X0,Y0,X1,Y1,Clip) { @@ -240,5 +291,113 @@ 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; + 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); + Pos = [glib_floor(Glib_xmag*(X+Glib_xoffset)), + 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",Pos,Text,C]); + }else{ + draw_string(Glib_process,Glib_canvas,Pos,Text); + if (Glib_ps) glib_history(["print",Pos,Text,0]); + } +} + +def glib_history(L) { + extern Glib_h, Glib_canvas_x, Glib_canvas_y; + 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 = ""; + Prev_color = 0; + /* Prolog */ + PS += "%%!PS-Adobe-1.0\n"; + PS += "%%BoundingBox: 0 0 " + + rtostr(Glib_canvas_x) + " " + rtostr(Glib_canvas_y) + "\n"; + PS += "%%Creator: This is generated by ifplot\n"; + PS += "%%Title: ifplot\n"; + PS += "%%EndComments: \n"; + PS += "0.1 setlinewidth \n"; + PS += "2 setlinecap \n"; + PS += "2 setlinejoin \n"; + PS += "/ifplot_putpixel { \n"; + PS += " /yyy 2 1 roll def /xxx 2 1 roll def \n"; + PS += " gsave newpath xxx yyy .5 0 360 arc \n"; + PS += " fill grestore \n"; + PS += "} def \n"; + + L = reverse(L); + N = length(L); + for (I=0; I