mirror of
https://github.com/RTimothyEdwards/magic.git
synced 2026-08-30 18:02:32 +02:00
Tim Edwards
6ecd077ab4
traditionally been kept for backwards compatibility. However, the operation of "ext2spice" and "ext2sim" as separate programs has become extremely difficult to maintain, and so it has been dropped in favor of folding both into the program as commands, as was done a long time ago in the Tcl/Tk version.
360 lines
9.2 KiB
C
360 lines
9.2 KiB
C
/*
|
|
* 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,
|
|
#if defined(HAVE_LIBCAIRO) && defined(MAGIC_WRAPPER)
|
|
PLOTSVG,
|
|
#endif
|
|
#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;
|
|
|
|
#if defined(HAVE_LIBCAIRO) && defined(MAGIC_WRAPPER)
|
|
int flags;
|
|
extern void GrTCairoPlotSVG();
|
|
#endif
|
|
|
|
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",
|
|
#if defined(HAVE_LIBCAIRO) && defined(MAGIC_WRAPPER)
|
|
"svg file generate SVG file for the whole window",
|
|
#endif
|
|
#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
|
|
#if defined(HAVE_LIBCAIRO) && defined(MAGIC_WRAPPER)
|
|
|| (option == PLOTSVG)
|
|
#endif
|
|
#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))
|
|
{
|
|
/* If no box is specified, then use the cell in the layout */
|
|
/* window, and plot the entire cell using the cell bounding */
|
|
/* box as the area to plot. */
|
|
|
|
scx.scx_area = scx.scx_use->cu_def->cd_bbox;
|
|
}
|
|
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;
|
|
|
|
#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
|
|
|
|
#if defined(HAVE_LIBCAIRO) && defined(MAGIC_WRAPPER)
|
|
case PLOTSVG:
|
|
if (cmd->tx_argc > 3)
|
|
{
|
|
TxError("Too many arguments:\n plot %s\n",
|
|
cmdPlotOption[PLOTSVG]);
|
|
return;
|
|
}
|
|
flags = window->w_flags;
|
|
/* In case this is called from a non-GUI wrapper window, remove */
|
|
/* the window border widgets from the rendered display. */
|
|
window->w_flags &= ~(WIND_SCROLLABLE | WIND_SCROLLBARS | WIND_CAPTION
|
|
| WIND_BORDER);
|
|
DBWHLRemoveClient(DBWDrawBox); // Prevent drawing the cursor box
|
|
GrTCairoPlotSVG(cmd->tx_argv[2], window);
|
|
DBWHLAddClient(DBWDrawBox); // Restore drawing the cursor box
|
|
window->w_flags = flags;
|
|
return;
|
|
#endif
|
|
|
|
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 */
|
|
}
|
|
}
|
|
|