/* Hello, Emacs, this is -*-C-*-
 * $Id: dxy.trm,v 1.14 2006/07/21 02:35:45 sfeam Exp $
 *
 */

/* GNUPLOT - dxy.trm */

/*[
 * Copyright 1990 - 1993, 1998, 2004
 *
 * 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 complete modified source code.  Modifications are to
 * be distributed as patches to the released version.  Permission to
 * distribute binaries produced by compiling modified sources is granted,
 * provided you
 *   1. distribute the corresponding source modifications from the
 *    released version in the form of a patch file along with the binaries,
 *   2. add special version identification to distinguish your version
 *    in addition to the base release version number,
 *   3. provide your name and address as the primary contact for the
 *    support of your modified version, and
 *   4. retain our contact information in regard to use of the base
 *    software.
 * Permission to distribute the released version of the source code along
 * with corresponding source modifications in the form of a patch file is
 * granted with same provisions 2 through 4 for binary distributions.
 *
 * This software is provided "as is" without express or implied warranty
 * to the extent permitted by applicable law.
]*/

/*
 * This file is included by ../term.c.
 *
 * This terminal driver supports:
 *  Roland DXY800A plotter
 *
 * AUTHORS
 *  Martin Yii, eln557h@monu3.OZ
 *  Further modified Jan 1990 by Russell Lang, rjl@monu1.cc.monash.oz
 *
 * send your comments or suggestions to (gnuplot-info@lists.sourceforge.net).
 *
 */

/*
 * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
 */

#include "driver.h"

#ifdef TERM_REGISTER
register_term(dxy800a)
#endif

#ifdef TERM_PROTO
TERM_PUBLIC void DXY_init __PROTO((void));
TERM_PUBLIC void DXY_graphics __PROTO((void));
TERM_PUBLIC void DXY_text __PROTO((void));
TERM_PUBLIC void DXY_linetype __PROTO((int linetype));
TERM_PUBLIC void DXY_move __PROTO((unsigned int x, unsigned int y));
TERM_PUBLIC void DXY_vector __PROTO((unsigned int x, unsigned int y));
TERM_PUBLIC void DXY_put_text __PROTO((unsigned int x, unsigned int y, const char *str));
TERM_PUBLIC int DXY_text_angle __PROTO((int ang));
TERM_PUBLIC void DXY_reset __PROTO((void));

#define DXY_XMAX 2470
#define DXY_YMAX 1700

#define DXY_XLAST (DXY_XMAX - 1)
#define DXY_YLAST (DXY_XMAX - 1)

#define DXY_VCHAR	(56)	/* double actual height of characters */
#define DXY_HCHAR	(28)	/* actual width including spacing */
#define DXY_VTIC	(28)
#define DXY_HTIC	(28)
#endif /* TERM_PROTO */

#ifndef TERM_PROTO_ONLY
#ifdef TERM_BODY

int dxy_angle = 0;

TERM_PUBLIC void
DXY_init()
{
    /* No initialisation sequences for DXY 800A */
}


TERM_PUBLIC void
DXY_graphics()
{
    /* HOME, Character size 3 */
    fputs("H\nS3\n", gpoutfile);
}


TERM_PUBLIC void
DXY_text()
{
    /* No sequences needed */
}


TERM_PUBLIC void
DXY_linetype(int linetype)
{
    /* select pen */
    fprintf(gpoutfile, "J%d\n", (linetype + 2) % 8 + 1);
    switch (linetype) {
    case LT_AXIS:
	/* use dotted line for axis */
	fputs("L1\nB50\n", gpoutfile);
	break;
    default:
	/* use solid line for all others */
	fputs("L0\n", gpoutfile);
	break;
    }
}


TERM_PUBLIC void
DXY_move(unsigned int x, unsigned int y)
{
    fprintf(gpoutfile, "M%d,%d\n", x, y);
}


TERM_PUBLIC void
DXY_vector(unsigned int x, unsigned int y)
{
    fprintf(gpoutfile, "D%d,%d\n", x, y);
}


TERM_PUBLIC void
DXY_put_text(unsigned int x, unsigned int y, const char *str)
{
    if (dxy_angle == 1) {
	/* vertical */
	DXY_move(x + DXY_VCHAR / 4, y);
    } else {
	/* horiz */
	DXY_move(x, y - DXY_VCHAR / 4);
    }
    fprintf(gpoutfile, "P%s\n", str);
}


TERM_PUBLIC int
DXY_text_angle(int ang)
{
    dxy_angle = (ang ? 1 : 0);
    fprintf(gpoutfile, "Q%d\n", ang);
    return TRUE;
}


TERM_PUBLIC void
DXY_reset()
{
    /* Home pen */
    fputs("H\n", gpoutfile);
}

#endif /* TERM_BODY */

#ifdef TERM_TABLE
TERM_TABLE_START(dxy_driver)
    "dxy800a", "Roland DXY800A plotter",
    DXY_XMAX, DXY_YMAX, DXY_VCHAR, DXY_HCHAR,
    DXY_VTIC, DXY_HTIC, options_null, DXY_init, DXY_reset,
    DXY_text, null_scale, DXY_graphics, DXY_move, DXY_vector,
    DXY_linetype, DXY_put_text, DXY_text_angle,
    null_justify_text, do_point, do_arrow, set_font_null
TERM_TABLE_END(dxy_driver)

#undef LAST_TERM
#define LAST_TERM dxy_driver

#endif /* TERM_TABLE */
#endif /* TERM_PROTO_ONLY */

#ifdef TERM_HELP
START_HELP(dxy800a)
"1 dxy800a",
"?commands set terminal dxy800a",
"?set terminal dxy800a",
"?set term dxy800a",
"?terminal dxy800a",
"?term dxy800a",
"?dxy800a",
" This terminal driver supports the Roland DXY800A plotter.  It has no options."
END_HELP(dxy800a)
#endif