/*
* $Id: fig.trm,v 3.26 92/03/24 22:34:53 woo Exp Locker: woo $
*/
/* GNUPLOT - fig.trm */
/*
* Copyright (C) 1990, 1991, 1992
*
* Permission to use, copy, and distribute this software and its
* documentation for any purpose with or without fee is hereby granted,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
*
* Permission to modify the software is granted, but not the right to
* distribute the modified code. Modifications are to be distributed
* as patches to released version.
*
* This software is provided "as is" without express or implied warranty.
*
* This file is included by ../term.c.
*
* This terminal driver supports:
* Fig graphics language
*
* AUTHORS
* Micah Beck, David Kotz
*
* send your comments or suggestions to (info-gnuplot@ames.arc.nasa.gov).
*
*/
#ifdef MSDOS
#define long int
#endif /* MSDOS */
/*
* Original for Fig code output by Micah Beck, 1989
* Department of Computer Science, Cornell University
* Updated by David Kotz for gnuplot 2.0
* More efficient output Ian by Dall
*/
#include "object.h" /* from the TransFig distribution */
#define FIG_DEFAULT (-1)
#define FIG_ROMAN_FONT (0)
#ifndef FIG_RES
/* Must be 80 for the Fig editor, but may be increased if used
* only by TransFig filters.
* Represents resolution per inch.
*/
#define FIG_RES 80
#endif
#define FIG_COORD_SYS 2
#define FIG_MAGIC "#FIG 1.4-TFX"
#define FIG_HTIC (5*FIG_RES/80)
#define FIG_VTIC (5*FIG_RES/80)
#define FIG_FONT_S FIG_DEFAULT
#define FIG_HCHAR (6*FIG_RES/80) /* Change if FIG_FONT_S is changed */
#define FIG_VCHAR (12*FIG_RES/80) /* Change if FIG_FONT_S is changed */
#define FIG_ARROW_WIDTH FIG_HTIC
#define FIG_ARROW_HEIGHT FIG_HTIC
static long FIG_xbase = FIG_RES/2;
static long FIG_ybase = FIG_RES/2;
static long FIG_posx;
static long FIG_posy;
static int FIG_poly_vec_cnt;
enum FIG_poly_stat {FIG_poly_new, FIG_poly_part};
static enum FIG_poly_stat FIG_polyvec_stat;
/* 5 inches wide by 3 inches high */
#define FIG_XMAX (5 * FIG_RES)
#define FIG_YMAX (3 * FIG_RES)
#define FIG_XOFF (FIG_RES/4)
#define FIG_YOFF (FIG_RES/4)
static int FIG_type; /* negative types use real lines */
static float FIG_spacing; /* length of dash or dot spacing */
static int FIG_justify; /* Fig justification T_*_JUSTIFIED */
static float FIG_angle; /* Fig text angle 0=horiz, Pi/2=vert */
#define FIG_POINT_TYPES POINT_TYPES /* we use the same points */
static
FIG_poly_clean(stat)
enum FIG_poly_stat stat;
{
if(stat == FIG_poly_part)
fprintf(outfile, " 9999 9999\n");
FIG_polyvec_stat = FIG_poly_new;
}
FIG_init()
{
FIG_posx = FIG_posy = 0;
FIG_polyvec_stat = FIG_poly_new;
FIG_linetype(-1);
FIG_justify_text(LEFT);
FIG_text_angle(0);
fprintf(outfile, "%s\n", FIG_MAGIC);
fprintf(outfile, "%d %d\n", FIG_RES, FIG_COORD_SYS);
}
FIG_graphics()
{
FIG_posx = FIG_posy = 0;
FIG_polyvec_stat = FIG_poly_new;
/* there is no way to have separate pictures in a FIG file */
}
FIG_text()
{
/* there is no way to have separate pictures in a FIG file */
FIG_poly_clean(FIG_polyvec_stat);
FIG_posx = FIG_posy = 0;
fflush(outfile);
}
/* Line types for FIG work like this:
* -2 : solid (border)
* -1 : dashed 4 (axes)
* 0 : solid (first curve)
* 1 : dotted 3
* 2 : dashed 3
* 3 : dotted 6
* 4 : dashed 6
* ... ...
*/
FIG_linetype(linetype)
int linetype; /* expect linetype >= -2 */
{
int last_FIG_type = FIG_type;
int last_FIG_spacing = FIG_spacing;
switch (linetype) {
case 0:
case -2: {
FIG_type = 0; /* solid line */
FIG_spacing = 0.0;
break;
}
case -1: {
FIG_type = 1; /* dashed */
FIG_spacing = 4.0; /* dash length */
break;
}
default: {
linetype = abs(linetype); /* shouldn't be negative anyway */
/* now linetype >= 1 */
FIG_type = linetype % 2 + 1; /* dotted, dashed, ... */
FIG_spacing = (linetype+1) / 2 * 3;
break;
}
}
if (FIG_type != last_FIG_type || FIG_spacing != last_FIG_spacing)
FIG_poly_clean(FIG_polyvec_stat);
}
FIG_move(x,y)
unsigned int x,y;
{
int last_FIG_posx = FIG_posx;
int last_FIG_posy = FIG_posy;
FIG_posx = x;
FIG_posy = y;
if (FIG_posx != last_FIG_posx || FIG_posy != last_FIG_posy)
FIG_poly_clean(FIG_polyvec_stat);
}
FIG_vector(ux,uy)
unsigned int ux,uy;
{
int x=ux, y=uy;
if (FIG_polyvec_stat != FIG_poly_part)
{
fprintf(outfile, "%d %d %d %d %d %d %d %d %6.3f %d %d\n",
O_POLYLINE, T_POLYLINE,
FIG_type, 1, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_spacing,
0, 0);
fprintf(outfile, "%d %d",
FIG_XOFF + FIG_posx, FIG_YMAX + FIG_YOFF - FIG_posy);
FIG_poly_vec_cnt = 1;
FIG_polyvec_stat = FIG_poly_part;
}
fprintf(outfile, " %d %d",
FIG_XOFF + x, FIG_YMAX + FIG_YOFF-y);
FIG_poly_vec_cnt++;
if (FIG_poly_vec_cnt > 50)
FIG_poly_clean(FIG_polyvec_stat);
FIG_posx = x;
FIG_posy = y;
}
FIG_arrow(sx, sy, ex, ey, head)
int sx, sy; /* start coord */
int ex, ey; /* end coord */
BOOLEAN head;
{
FIG_poly_clean(FIG_polyvec_stat);
fprintf(outfile, "%d %d %d %d %d %d %d %d %6.3f %d %d\n",
O_POLYLINE, T_POLYLINE,
FIG_type, 1, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_spacing,
head ? 1 : 0, 0);
/* arrow line */
if ( head )
fprintf(outfile, "%d %d %.3f %.3f %.3f\n",
0, 0, 1.0,
(double)FIG_ARROW_WIDTH, (double)FIG_ARROW_HEIGHT);
fprintf(outfile, "%d %d %d %d 9999 9999\n",
FIG_XOFF + sx, FIG_YOFF + FIG_YMAX - sy,
FIG_XOFF + ex, FIG_YOFF + FIG_YMAX - ey);
FIG_posx = ex;
FIG_posy = ey;
}
FIG_put_text(x, y, str)
int x, y;
char *str;
{
if (strlen(str) == 0) return;
FIG_poly_clean(FIG_polyvec_stat);
y = y - FIG_VCHAR/2; /* assuming vertical center justified */
fprintf(outfile, "%d %d %d %d %d %d %d %6.3f %d %d %d %d %d %s\01\n",
O_TEXT, FIG_justify,
FIG_ROMAN_FONT, FIG_FONT_S, FIG_DEFAULT, FIG_DEFAULT, FIG_DEFAULT, FIG_angle,
FIG_DEFAULT, FIG_VCHAR, FIG_HCHAR*strlen(str), FIG_XOFF + x,
FIG_YMAX + FIG_YOFF-y, str);
}
int FIG_justify_text(mode)
enum JUSTIFY mode;
{
switch(mode) {
case LEFT: FIG_justify = T_LEFT_JUSTIFIED; break;
case CENTRE: FIG_justify = T_CENTER_JUSTIFIED; break;
case RIGHT: FIG_justify = T_RIGHT_JUSTIFIED; break;
/* shouldn't happen */
default: FIG_justify = T_LEFT_JUSTIFIED; break;
}
return (TRUE);
}
int FIG_text_angle(angle)
int angle;
{
if (angle)
FIG_angle = Pi / 2.0; /* vertical is pi/2 radians */
else
FIG_angle = 0.0; /* horizontal */
return (TRUE);
}
FIG_reset()
{
FIG_poly_clean(FIG_polyvec_stat);
FIG_posx = FIG_posy = 0;
fflush(outfile);
}
#ifdef MSDOS
#undef long
#endif /* MSDOS */