luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
magic/plot/plotCmd.c

351 lines
8.7 KiB
C
Raw Normal View History

Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky
2017-04-25 14:41:48 +02:00
/*
* PlotCmd.c --
*
* Commands for the plot module only.
*
* *********************************************************************
* * Copyright (C) 1985, 1990 Regents of the University of California. *
* * Permission to use, copy, modify, and distribute this *
* * software and its documentation for any purpose and without *
* * fee is hereby granted, provided that the above copyright *
* * notice appear in all copies. The University of California *
* * makes no representations about the suitability of this *
* * software for any purpose. It is provided "as is" without *
* * express or implied warranty. Export of this software outside *
* * of the United States of America may require an export license. *
* *********************************************************************
*/
#ifndef lint
static char rcsid[] __attribute__ ((unused)) = "$Header: /usr/cvsroot/magic-8.0/plot/plotCmd.c,v 1.1.1.1 2008/02/03 20:43:50 tim Exp $";
#endif /* not lint */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "tcltk/tclmagic.h"
#include "utils/magic.h"
#include "utils/geometry.h"
#include "tiles/tile.h"
#include "utils/hash.h"
#include "utils/utils.h"
#include "database/database.h"
#include "windows/windows.h"
#include "dbwind/dbwind.h"
#include "utils/main.h"
#include "textio/txcommands.h"
#include "plow/plow.h"
#include "select/select.h"
#include "commands/commands.h"
#include "plot/plotInt.h"
/*
* ----------------------------------------------------------------------------
*
* CmdPlot --
*
* Implement the "plot" command: generate plot output for what's
* underneath the box.
*
* Usage:
* plot type [options]
*
* Results:
* None.
*
* Side effects:
* Generates plot output on disk somewhere.
*
* ----------------------------------------------------------------------------
*/
/* These definitions must correspond to the ordering in cmdPlotOption[] below */
typedef enum {
POSTSCRIPT=0,
PLOTPNM,
Added a "plot svg" command that, when used in conjuction with the Cairo graphics package (magic -d XR), will map the display onto an SVG surface and save it to a file using the Cairo SVG backend. Due to the simplicity of the mapping, there are no options to this plot command; it just creates a file that is a (scalable!) replica of the layout window.
2019-03-12 18:29:24 +01:00
#ifdef HAVE_LIBCAIRO
PLOTSVG,
#endif
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky
2017-04-25 14:41:48 +02:00
#ifdef GREMLIN
STYLE_GREMLIN,
#endif
#ifdef VERSATEC
STYLE_VERSATEC,
#endif
#ifdef LLNL
PIXELS,
#endif
PARAMETERS,
HELP } PlotOptions;
void
CmdPlot(w, cmd)
MagWindow *w;
TxCommand *cmd;
{
int option;
char **msg;
MagWindow *window;
DBWclientRec *crec;
TileTypeBitMask mask;
CellDef *boxRootDef;
SearchContext scx;
float width;
int iwidth, scale;
Added a "plot svg" command that, when used in conjuction with the Cairo graphics package (magic -d XR), will map the display onto an SVG surface and save it to a file using the Cairo SVG backend. Due to the simplicity of the mapping, there are no options to this plot command; it just creates a file that is a (scalable!) replica of the layout window.
2019-03-12 18:29:24 +01:00
#ifdef HAVE_LIBCAIRO
extern void GrTCairoPlotSVG();
#endif
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky
2017-04-25 14:41:48 +02:00
static char *cmdPlotOption[] =
{
"postscript file [layers] generate PostScript file for what's\n\
underneath the box",
"pnm file [width [layers]] generate PNM file for what's\n\
underneath the box",
Added a "plot svg" command that, when used in conjuction with the Cairo graphics package (magic -d XR), will map the display onto an SVG surface and save it to a file using the Cairo SVG backend. Due to the simplicity of the mapping, there are no options to this plot command; it just creates a file that is a (scalable!) replica of the layout window.
2019-03-12 18:29:24 +01:00
#ifdef HAVE_LIBCAIRO
"svg file generate SVG file for the whole window",
#endif
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky
2017-04-25 14:41:48 +02:00
#ifdef GREMLIN
"gremlin file [layers] generate gremlin file for what's\n\
underneath the box",
#endif
#ifdef VERSATEC
"versatec [scale [layers]] generate plot for selected printer;\n\
scale is multiplying factor for parameter\n\
lambda, for layers underneath the box",
#endif
#ifdef LLNL
"pixels [width [layers]] generate plot in pix format, width pixels\n\
wide, for layers underneath box",
#endif /* LLNL */
"parameters [name value] set or print out plotting parameters",
"help print this help information",
NULL
};
if (cmd->tx_argc < 2)
{
option = HELP;
cmd->tx_argc = 2;
}
else
{
option = Lookup(cmd->tx_argv[1], cmdPlotOption);
if (option < 0)
{
TxError("\"%s\" isn't a valid plot option.\n", cmd->tx_argv[1]);
option = HELP;
cmd->tx_argc = 2;
}
}
if ((option == PLOTPNM) || (option == POSTSCRIPT)
#ifdef GREMLIN
|| (option == STYLE_GREMLIN)
#endif
Added a "plot svg" command that, when used in conjuction with the Cairo graphics package (magic -d XR), will map the display onto an SVG surface and save it to a file using the Cairo SVG backend. Due to the simplicity of the mapping, there are no options to this plot command; it just creates a file that is a (scalable!) replica of the layout window.
2019-03-12 18:29:24 +01:00
#ifdef HAVE_LIBCAIRO
|| (option == PLOTSVG)
#endif
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky
2017-04-25 14:41:48 +02:00
#ifdef VERSATEC
|| (option == STYLE_VERSATEC)
#endif
#ifdef LLNL
|| (option == PIXELS)
#endif
)
{
window = ToolGetPoint((Point *) NULL, (Rect *) NULL);
if (window == NULL)
{
windCheckOnlyWindow(&window, DBWclientID);
if ((window == (MagWindow *) NULL) || (window->w_client != DBWclientID))
{
TxError("The cursor must be over a layout window to plot.\n");
return;
}
}
crec = (DBWclientRec *) window->w_clientData;
scx.scx_use = (CellUse *) window->w_surfaceID;
if ((!ToolGetBox(&boxRootDef, &scx.scx_area)) ||
(scx.scx_use->cu_def != boxRootDef))
{
TxError("The box and cursor must appear in the same window\n");
TxError(" for plotting. The box indicates the area to\n");
TxError(" plot, and the cursor's window tells which\n");
TxError(" cells are expanded and unexpanded).\n");
return;
}
scx.scx_trans = GeoIdentityTransform;
mask = crec->dbw_visibleLayers;
if ((crec->dbw_flags & DBW_SEELABELS) && (crec->dbw_labelSize >= 0))
TTMaskSetType(&mask, L_LABEL);
else TTMaskClearType(&mask, L_LABEL);
TTMaskSetType(&mask, L_CELL);
}
switch (option)
{
case POSTSCRIPT:
if ((cmd->tx_argc != 3) && (cmd->tx_argc != 4))
{
TxError("Wrong number of arguments:\n plot %s\n",
cmdPlotOption[POSTSCRIPT]);
return;
}
if (cmd->tx_argc == 4)
{
if (!CmdParseLayers(cmd->tx_argv[3], &mask))
return;
}
PlotPS(cmd->tx_argv[2], &scx, &mask, crec->dbw_bitmask);
return;
Added a "plot svg" command that, when used in conjuction with the Cairo graphics package (magic -d XR), will map the display onto an SVG surface and save it to a file using the Cairo SVG backend. Due to the simplicity of the mapping, there are no options to this plot command; it just creates a file that is a (scalable!) replica of the layout window.
2019-03-12 18:29:24 +01:00
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky
2017-04-25 14:41:48 +02:00
#ifdef GREMLIN
case STYLE_GREMLIN:
if ((cmd->tx_argc != 3) && (cmd->tx_argc != 4))
{
TxError("Wrong number of arguments:\n plot %s\n",
cmdPlotOption[STYLE_GREMLIN]);
return;
}
if (cmd->tx_argc == 4)
{
if (!CmdParseLayers(cmd->tx_argv[3], &mask))
return;
}
PlotGremlin(cmd->tx_argv[2], &scx, &mask, crec->dbw_bitmask);
return;
#endif /* GREMLIN */
case HELP:
TxPrintf("The \"plot\" commands are:\n");
for (msg = &(cmdPlotOption[0]); *msg != NULL; msg++)
{
TxPrintf(" plot %s\n", *msg);
}
return;
case PARAMETERS:
if (cmd->tx_argc == 2)
PlotPrintParams();
else if (cmd->tx_argc == 4)
PlotSetParam(cmd->tx_argv[2], cmd->tx_argv[3]);
else
{
TxError("Wrong arguments:\n plot %s\n",
cmdPlotOption[PARAMETERS]);
}
return;
#ifdef VERSATEC
case STYLE_VERSATEC:
if (cmd->tx_argc > 4)
{
TxError("Too many arguments:\n plot %s\n",
cmdPlotOption[STYLE_VERSATEC]);
return;
}
if (cmd->tx_argc >= 3)
scale = atoi(cmd->tx_argv[2]);
else scale = 0.0;
if (cmd->tx_argc == 4)
{
if (!CmdParseLayers(cmd->tx_argv[3], &mask))
return;
}
PlotVersatec( &scx, &mask, crec->dbw_bitmask, scale);
return;
#endif
Added a "plot svg" command that, when used in conjuction with the Cairo graphics package (magic -d XR), will map the display onto an SVG surface and save it to a file using the Cairo SVG backend. Due to the simplicity of the mapping, there are no options to this plot command; it just creates a file that is a (scalable!) replica of the layout window.
2019-03-12 18:29:24 +01:00
#ifdef HAVE_LIBCAIRO
case PLOTSVG:
if (cmd->tx_argc > 3)
{
TxError("Too many arguments:\n plot %s\n",
cmdPlotOption[PLOTSVG]);
return;
}
GrTCairoPlotSVG(cmd->tx_argv[2], window);
return;
#endif
Initial commit at Tue Apr 25 08:41:48 EDT 2017 by tim on stravinsky
2017-04-25 14:41:48 +02:00
case PLOTPNM:
if (cmd->tx_argc > 5)
{
TxError("Too many arguments:\n plot %s\n",
cmdPlotOption[PLOTPNM]);
return;
}
if (cmd->tx_argc < 3) {
TxError("Too few arguments:\n plot %s\n",
cmdPlotOption[PLOTPNM]);
return;
}
if (cmd->tx_argc >= 4)
{
#ifdef VERSATEC
if (PlotPNMRTL && StrIsNumeric(cmd->tx_argv[3]))
iwidth = (int)(atof(cmd->tx_argv[3]) * (double)PlotVersDotsPerInch);
else
#endif
if (!StrIsInt(cmd->tx_argv[3]))
{
{
TxError("Width should be an integer number of pixels\n");
return;
}
}
else
iwidth = atoi(cmd->tx_argv[3]);
}
#ifdef VERSATEC
/* RTL mode allows no filename. A temporary filename is created */
/* for the file being spooled to the printer. */
else if (PlotPNMRTL && StrIsNumeric(cmd->tx_argv[2]))
{
iwidth = (int)(atof(cmd->tx_argv[2]) * (double)PlotVersDotsPerInch);
PlotPNM(NULL, &scx, &mask, crec->dbw_bitmask, iwidth);
return;
}
#endif
else
iwidth = 1000; /* Default value */
if (cmd->tx_argc == 5)
if (!CmdParseLayers(cmd->tx_argv[4], &mask))
return;
PlotPNM(cmd->tx_argv[2], &scx, &mask, crec->dbw_bitmask, iwidth);
return;
#ifdef LLNL
case PIXELS:
if (cmd->tx_argc > 4)
{
TxError("Too many arguments:\n plot %s\n",
cmdPlotOption[PIXELS]);
return;
}
if (cmd->tx_argc >=3)
iwidth = cmdParseCoord(w, cmd->tx_argv[2], TRUE, TRUE);
else
iwidth = 0; /* means get it from the plot parameters */
if (cmd->tx_argc == 4)
{
if (!CmdParseLayers(cmd->tx_argv[3], &mask))
return;
}
PlotPixels( &scx, &mask, crec->dbw_bitmask, iwidth);
return;
#endif /* LLNL */
}
}