The Fatted Calf/The Fatted Calf.iso/Applications/Graphics/Gnuplot/Source/term/win.trm

Text File | 1993-03-02 | 5.4 KB | 233 lines

/* GNUPLOT - term/win.trm */
/*
 * Copyright (C) 1992   Maurice Castro, Russell Lang
 *
 * 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.
 *
 *
 * AUTHORS
 *
 *   Gnuplot for Windows:
 *       Maurice Castro, Russell Lang
 *
 * Send your comments or suggestions to
 *  [e-mail].
 * This is a mailing list; to join it send a note to
 *  [e-mail].
 * Send bug reports to
 *  [e-mail].
 */


/* This file implements the terminal and printer display for gnuplot  */
/* under Microsoft Windows. The code currently compiles only with the */
/* Borland C++ 3.1 compiler.                                          */
/*                                                                    */
/* The modifications to allow Gnuplot to run under Windows were made  */
/* by Maurice Castro ([e-mail])                 */
/* and Russell Lang ([e-mail])         19 Nov 1992  */
/*                                                                    */

/* Edit this file with tabstop=4 (vi :se ts=4)                        */

#include <windows.h>
#include "../win/wgnuplib.h"

extern GW graphwin;

char win_prntmp[256];    /* printer temporary file */

/* Initialization values - Guess Now Scale later */
#define WIN_XMAX (2400)
#define WIN_YMAX (1800)
#define WIN_HCHAR (WIN_XMAX/75)
#define WIN_VCHAR (WIN_YMAX/25)
#define WIN_HTIC (WIN_XMAX/160)
#define WIN_VTIC WIN_HTIC

/* Interface routines - create list of actions for Windows */

WIN_options()
{
    extern struct value *const_express();
    extern double real();

    if (!END_OF_COMMAND) {
        if (almost_equals(c_token,"d$efault")) {
            graphwin.color=TRUE;
            strcpy(graphwin.fontname,WINFONT);
            graphwin.fontsize = WINFONTSIZE;
            c_token++;
        }
    }

    if (!END_OF_COMMAND) {
        if (almost_equals(c_token,"m$onochrome")) {
            graphwin.color=FALSE;
            c_token++;
        }
        else if (almost_equals(c_token,"c$olor")) {
            graphwin.color=TRUE;
            c_token++;
        }
    }

    if (!END_OF_COMMAND && isstring(c_token)) {
        quote_str(graphwin.fontname,c_token);
        c_token++;
    }

    if (!END_OF_COMMAND) {
        /* We have font size specified */
        struct value a;
        graphwin.fontsize = (int)real(const_express(&a));
    }

    if (graphwin.fontname[0] == '\0')
      sprintf(term_options,"%s", graphwin.color ? "color" :  "monochrome");
    else
      sprintf(term_options,"%s \"%s\" %d", graphwin.color ? "color" :  "monochrome" ,
        graphwin.fontname, graphwin.fontsize);
    if (IsWindow(graphwin.hWndGraph) && IsIconic(graphwin.hWndGraph)) {
        ShowWindow(graphwin.hWndGraph, SW_SHOWNORMAL);
    }
    GraphRedraw(&graphwin);
}

/* We don't actually do scaling, but we need to fix up the text size
 * if the user has resized the window */
int WIN_scale()
{
    term_tbl[term].h_char = graphwin.hchar;
    term_tbl[term].v_char = graphwin.vchar;
    sprintf(term_options,"%s \"%s\" %d", graphwin.color ? "color" :  "monochrome" ,
        graphwin.fontname, graphwin.fontsize);
    return FALSE ;    /* can't be done */
}

WIN_init()
{
    if (!graphwin.hWndGraph) {
        graphwin.xmax = WIN_XMAX;
        graphwin.ymax = WIN_YMAX;
        graphwin.htic = WIN_HTIC;
        graphwin.vtic = WIN_VTIC;
        GraphInit(&graphwin);
        SetClassWord(graphwin.hWndGraph, GCW_HICON, LoadIcon(graphwin.hInstance, "grpicon"));
        graphwin.resized = FALSE;
    }
}


WIN_reset()
{
}

WIN_text()
{
    GraphEnd(&graphwin);
}

WIN_graphics()
{
    GraphStart(&graphwin);
}

WIN_move(x, y)
unsigned int x, y;
{
    GraphOp(&graphwin, W_move, x, y, NULL);
}

WIN_vector(x,y)
unsigned int x, y;
{
    GraphOp(&graphwin, W_vect, x, y, NULL);
}

WIN_linetype(lt)
int lt;
{
    GraphOp(&graphwin, W_line_type, lt, 0, NULL);
}

WIN_put_text(x,y,str)
int x, y;
char *str;
{
    GraphOp(&graphwin, W_put_text, x, y, str);
}

int WIN_justify_text(mode)
enum JUSTIFY mode;
{
    GraphOp(&graphwin, W_justify, mode, 0, NULL);
    return(TRUE);
}

int WIN_text_angle(ang)
int ang;
{
    if (graphwin.rotate)
        GraphOp(&graphwin, W_text_angle, ang, 0, NULL);
    return graphwin.rotate;
}

WIN_point(x,y,number)
int x,y;
int number;
{
    /* draw point shapes later to save memory */
    graphwin.htic = term_tbl[term].h_tic / 2;     /* size of point symbols */
    graphwin.vtic = term_tbl[term].v_tic / 2;
    if (number>=0)
        number %= POINT_TYPES;
    number += 1;
    GraphOp(&graphwin, W_dot + number, x, y, NULL);
}


/* Windows PRN emulation */
FILE *
open_printer()
{
char *temp;
    if ((temp = getenv("TEMP")) == (char *)NULL)
        *win_prntmp='\0';
    else  {
        strncpy(win_prntmp,temp,MAX_ID_LEN-1);
        /* stop X's in path being converted by mktemp */
        for (temp=win_prntmp; *temp; temp++)
            *temp = tolower(*temp);
        if ( strlen(win_prntmp) && (win_prntmp[strlen(win_prntmp)-1]!='\\') )
            strcat(win_prntmp,"\\");
    }
    strncat(win_prntmp, "_gptmp",MAX_ID_LEN-strlen(win_prntmp));
    strncat(win_prntmp, "XXXXXX",MAX_ID_LEN-strlen(win_prntmp));
    mktemp(win_prntmp);
    return fopen(win_prntmp, "w");
}

void
close_printer()
{
    fclose(outfile);
    DumpPrinter(graphwin.hWndGraph, graphwin.Title, win_prntmp);
}

void
screen_dump(void)
{
    GraphPrint(&graphwin);
}