|
@@ -1,267 +0,0 @@
|
|
|
-/*
|
|
|
-****************************************************************************
|
|
|
-*
|
|
|
-* MODULE: d.text
|
|
|
-*
|
|
|
-* AUTHOR(S): James Westervelt, US Army CERL
|
|
|
-*
|
|
|
-* PURPOSE: display text in active frame
|
|
|
-*
|
|
|
-* COPYRIGHT: (C) 2001 by the GRASS Development Team
|
|
|
-*
|
|
|
-* This program is free software under the GNU General Public
|
|
|
-* License (>=v2). Read the file COPYING that comes with GRASS
|
|
|
-* for details.
|
|
|
-*
|
|
|
-*****************************************************************************/
|
|
|
-
|
|
|
-/*
|
|
|
- * d.text
|
|
|
- *
|
|
|
- * Draw text in a text window. Text lines come from stdin.
|
|
|
- * R_text control:
|
|
|
- * .C color_name change color
|
|
|
- * .S size change text size
|
|
|
- * .B 0 bold (double print) off
|
|
|
- * .B 1 bold (double print) on
|
|
|
- * .F name change font to name
|
|
|
- */
|
|
|
-
|
|
|
-#include <stdio.h>
|
|
|
-#include <stdlib.h>
|
|
|
-#include <string.h>
|
|
|
-#include <unistd.h>
|
|
|
-#include <grass/gis.h>
|
|
|
-#include <grass/display.h>
|
|
|
-#include <grass/raster.h>
|
|
|
-#include <grass/colors.h>
|
|
|
-#include <grass/glocale.h>
|
|
|
-
|
|
|
-int
|
|
|
-main (int argc, char **argv)
|
|
|
-{
|
|
|
- char *cmd_ptr, *max_buff ;
|
|
|
- char buff[512] ;
|
|
|
- char window_name[64] ;
|
|
|
- float size ;
|
|
|
- int bold ;
|
|
|
- int R, G, B, color = 0;
|
|
|
- int cur_dot_row, cur_dot_column ;
|
|
|
- int dots_per_line ;
|
|
|
- int start_line ;
|
|
|
- int t, b, l, r ;
|
|
|
- int tsize ;
|
|
|
- double x,y ;
|
|
|
- double rotation;
|
|
|
-
|
|
|
- struct GModule *module;
|
|
|
- struct Option *opt1, *opt2, *opt3, *opt4, *opt5;
|
|
|
- struct Flag *flag_b;
|
|
|
- char *wind_file_name;
|
|
|
- FILE *wind_file;
|
|
|
-
|
|
|
- /* Initialize the GIS calls */
|
|
|
- G_gisinit(argv[0]) ;
|
|
|
-
|
|
|
- module = G_define_module();
|
|
|
- module->keywords = _("display");
|
|
|
- module->description =
|
|
|
- _("Draws text in the active display frame on the graphics monitor using the current font.");
|
|
|
-
|
|
|
- opt1 = G_define_option() ;
|
|
|
- opt1->key = "size" ;
|
|
|
- opt1->type = TYPE_DOUBLE ;
|
|
|
- opt1->required = NO ;
|
|
|
- opt1->answer = "5" ;
|
|
|
- opt1->options = "0-100";
|
|
|
- opt1->description=_("Height of letters in percentage of available frame height");
|
|
|
-
|
|
|
- opt2 = G_define_option() ;
|
|
|
- opt2->key = "color" ;
|
|
|
- opt2->type = TYPE_STRING ;
|
|
|
- opt2->answer = "gray" ;
|
|
|
- opt2->required = NO ;
|
|
|
- opt2->description=
|
|
|
- _("Text color, either a standard GRASS color or R:G:B triplet");
|
|
|
- opt2->gisprompt = GISPROMPT_COLOR;
|
|
|
-
|
|
|
- opt3 = G_define_option() ;
|
|
|
- opt3->key = "line" ;
|
|
|
- opt3->required = NO ;
|
|
|
- opt3->type = TYPE_INTEGER ;
|
|
|
- opt3->options = "1-1000" ;
|
|
|
- opt3->description=
|
|
|
- _("The screen line number on which text will begin to be drawn");
|
|
|
-
|
|
|
- opt4 = G_define_option() ;
|
|
|
- opt4->key = "at" ;
|
|
|
- opt4->key_desc = "x,y";
|
|
|
- opt4->type = TYPE_DOUBLE ;
|
|
|
- opt4->options = "0-100";
|
|
|
- opt4->required = NO ;
|
|
|
- opt4->description=
|
|
|
- _("Screen position at which text will begin to be drawn (percentage, [0,0] is lower left)");
|
|
|
-
|
|
|
- opt5 = G_define_option();
|
|
|
- opt5->key = "rotation";
|
|
|
- opt5->type = TYPE_DOUBLE;
|
|
|
- opt5->required = NO;
|
|
|
- opt5->answer = "0";
|
|
|
- opt5->description = _("Rotation angle in degrees (counter-clockwise)");
|
|
|
-
|
|
|
- flag_b = G_define_flag();
|
|
|
- flag_b->key = 'b';
|
|
|
- flag_b->description = _("Use bold text");
|
|
|
-
|
|
|
-
|
|
|
- /* Check command line */
|
|
|
- if (G_parser(argc, argv))
|
|
|
- exit(1);
|
|
|
-
|
|
|
- if(opt3->answer && opt4->answer)
|
|
|
- G_fatal_error(_("Please choose only one placement method"));
|
|
|
-
|
|
|
-
|
|
|
- if (isatty(0))
|
|
|
- fprintf (stdout,"\nPlease enter text instructions. Enter EOF (ctrl-d) on last line to quit\n");
|
|
|
-
|
|
|
- sscanf(opt1->answer,"%f",&size);
|
|
|
-
|
|
|
- if (R_open_driver() != 0)
|
|
|
- G_fatal_error (_("No graphics device selected"));
|
|
|
-
|
|
|
- /* Parse and select text color */
|
|
|
- if(sscanf(opt2->answer, "%d:%d:%d", &R, &G, &B) == 3) {
|
|
|
- if (R>=0 && R<256 && G>=0 && G<256 && B>=0 && B<256) {
|
|
|
- R_RGB_color(R, G, B);
|
|
|
- color = 1; /* to make success test below happy */
|
|
|
- }
|
|
|
- }
|
|
|
- else {
|
|
|
- color = D_translate_color(opt2->answer);
|
|
|
- R_standard_color(color);
|
|
|
- }
|
|
|
-
|
|
|
- if(!color)
|
|
|
- G_fatal_error(_("[%s]: No such color"), opt2->answer);
|
|
|
-
|
|
|
- rotation = atof(opt5->answer);
|
|
|
-
|
|
|
- if (D_get_cur_wind(window_name))
|
|
|
- G_fatal_error(_("No current window")) ;
|
|
|
-
|
|
|
- if (D_set_cur_wind(window_name))
|
|
|
- G_fatal_error(_("Current window not available")) ;
|
|
|
-
|
|
|
- /* Figure out where to put text */
|
|
|
- D_get_screen_window(&t, &b, &l, &r) ;
|
|
|
- R_set_window(t, b, l, r) ;
|
|
|
-
|
|
|
- dots_per_line = (int)(size/100.0 * (float)(b - t)) ;
|
|
|
- tsize = (int)(.8 * (float)dots_per_line) ;
|
|
|
-
|
|
|
- if(!opt4->answer) {
|
|
|
- if(opt3->answer)
|
|
|
- sscanf(opt3->answer,"%d",&start_line);
|
|
|
- else start_line = 1;
|
|
|
-
|
|
|
- cur_dot_row = t + (start_line - 1) * dots_per_line;
|
|
|
- cur_dot_column = l+5;
|
|
|
- }
|
|
|
- else {
|
|
|
- x = atof(opt4->answers[0]);
|
|
|
- y = atof(opt4->answers[1]);
|
|
|
- if(x<0 || x>100 || y<0 || y>100)
|
|
|
- G_fatal_error(_("value [%.0f,%.0f] out of range [0-100]"), x, y);
|
|
|
-
|
|
|
- cur_dot_row = t+(int)((b-t)*(100.-y)/100.);
|
|
|
- cur_dot_column = l+(int)((r-l)*x/100.);
|
|
|
- }
|
|
|
-
|
|
|
- R_text_size(tsize, tsize) ;
|
|
|
- R_text_rotation((float)rotation);
|
|
|
-
|
|
|
- if(flag_b->answer)
|
|
|
- bold = 1;
|
|
|
- else
|
|
|
- bold = 0 ;
|
|
|
-
|
|
|
- wind_file_name = G_tempfile();
|
|
|
- if ((wind_file=fopen(wind_file_name,"w")) == NULL)
|
|
|
- G_fatal_error(_("Unable to open temporary file <%s>"),wind_file_name);
|
|
|
-
|
|
|
- /* Do the plotting */
|
|
|
- while (fgets(buff,512,stdin))
|
|
|
- {
|
|
|
- fprintf(wind_file, "%s", buff);
|
|
|
- if (*buff == '.')
|
|
|
- {
|
|
|
- for(cmd_ptr=buff+2; *cmd_ptr==' '; cmd_ptr++) ;
|
|
|
- G_squeeze(cmd_ptr); /* added 6/91 DBS @ CWU */
|
|
|
- switch (buff[1] & 0x7F)
|
|
|
- {
|
|
|
- case 'F': /* font */
|
|
|
- R_font(cmd_ptr) ;
|
|
|
- break ;
|
|
|
- case 'C': /* color */
|
|
|
- if(sscanf(cmd_ptr, "%d:%d:%d", &R, &G, &B) == 3) {
|
|
|
- if (R>=0 && R<256 && G>=0 && G<256 && B>=0 && B<256) {
|
|
|
- R_RGB_color(R, G, B);
|
|
|
- }
|
|
|
- }
|
|
|
- else
|
|
|
- if (color = D_translate_color(cmd_ptr))
|
|
|
- R_standard_color(color) ;
|
|
|
- break ;
|
|
|
- case 'S': /* size */
|
|
|
- if (sscanf(cmd_ptr, "%f", &size))
|
|
|
- {
|
|
|
- dots_per_line = (int)(size/100.0 * (float)(b - t)) ;
|
|
|
- tsize = (int)(.8 * (float)dots_per_line) ;
|
|
|
- R_text_size(tsize, tsize) ;
|
|
|
- }
|
|
|
- break ;
|
|
|
- case 'B': /* bold */
|
|
|
- if (! sscanf(cmd_ptr, "%d", &bold))
|
|
|
- bold = 0 ;
|
|
|
- break ;
|
|
|
- case 'R': /* rotation */
|
|
|
- if (sscanf(cmd_ptr, "%lf", &rotation))
|
|
|
- {
|
|
|
- R_text_rotation((float)rotation);
|
|
|
- }
|
|
|
- break ;
|
|
|
- default:
|
|
|
- break ;
|
|
|
- }
|
|
|
- }
|
|
|
- else
|
|
|
- {
|
|
|
- if(!opt4->answer)
|
|
|
- cur_dot_row += dots_per_line ;
|
|
|
- R_move_abs(cur_dot_column, cur_dot_row) ;
|
|
|
- R_text(buff) ;
|
|
|
- if (bold)
|
|
|
- {
|
|
|
- R_move_abs(cur_dot_column, 1 + cur_dot_row) ;
|
|
|
- R_text(buff) ;
|
|
|
- R_move_abs(cur_dot_column + 1, cur_dot_row) ;
|
|
|
- R_text(buff) ;
|
|
|
- }
|
|
|
- }
|
|
|
- }
|
|
|
-
|
|
|
- R_text_size(5, 5) ;
|
|
|
-
|
|
|
- fclose(wind_file);
|
|
|
-
|
|
|
- max_buff = G_malloc(strlen(wind_file_name)+strlen(G_recreate_command())+4);
|
|
|
- sprintf(max_buff, "%s < %s", G_recreate_command(), wind_file_name);
|
|
|
- D_add_to_list(max_buff);
|
|
|
- G_free(max_buff);
|
|
|
-
|
|
|
- R_text_rotation(0.0); /* reset */
|
|
|
- R_close_driver();
|
|
|
-
|
|
|
- exit(0);
|
|
|
-}
|