开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
psview.cc
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：13k
源码类别：

通讯编程

开发平台：

Visual C++

psview.cc：源码内容
  1. /*
  2.  * Copyright (c) 1991,1993 Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  * 1. Redistributions of source code must retain the above copyright
  9.  *    notice, this list of conditions and the following disclaimer.
  10.  * 2. Redistributions in binary form must reproduce the above copyright
  11.  *    notice, this list of conditions and the following disclaimer in the
  12.  *    documentation and/or other materials provided with the distribution.
  13.  * 3. All advertising materials mentioning features or use of this software
  14.  *    must display the following acknowledgement:
  15.  * This product includes software developed by the Computer Systems
  16.  * Engineering Group at Lawrence Berkeley Laboratory.
  17.  * 4. Neither the name of the University nor of the Laboratory may be used
  18.  *    to endorse or promote products derived from this software without
  19.  *    specific prior written permission.
  20.  *
  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31.  * SUCH DAMAGE.
  32.  *
  33.  * @(#) $Header: /cvsroot/nsnam/nam-1/psview.cc,v 1.10 2001/02/23 05:56:51 mehringe Exp $ (LBL)
  34.  */
  36. #include <stdlib.h>
  37. #ifdef WIN32
  38. #include <windows.h>
  39. #endif
  41. #include <ctype.h>
  42. #include <math.h>
  44. #include "bbox.h"
  45. #include "netview.h"
  46. #include "netmodel.h"
  47. #include "tclcl.h"
  48. #include "paint.h"
  49. #include "packet.h"
  50. #include "psview.h"
  52. void PSView::zoom(float mag)
  53. {
  54.         magnification_ *= mag;
  55.         resize(width_, height_);
  56. }
  58. void PSView::resize(int width, int height)
  59. {
  60. width_ = width;
  61. height_ = height;
  63. matrix_.clear();
  65. BBox bb;
  67. /*a model can choose to use these values, or can set its own*/
  68. bb.xmin=0;
  69. bb.ymin=0;
  70. bb.xmax=width;
  71. bb.ymax=height;
  73. BoundingBox(bb);
  75. double x = (0.0-panx_)*width;
  76. double y = (0.0-pany_)*height;
  77. double w = width;
  78. double h = height;
  79. /*
  80.  * Set up a transform that maps bb -> canvas.  I.e,
  81.  * bb -> unit square -> allocation, but which retains
  82.  * the aspect ratio.  Also, add a margin.
  83.  */
  84. double nw = bb.xmax - bb.xmin;
  85. double nh = bb.ymax - bb.ymin;
  87. /* 
  88.  * Grow a margin if we asked for square aspect ratio.
  89.  */
  90. double bbw;
  91. double bbh;
  92. if (aspect_==SQUARE) {
  93.   bbw = 1.1 * nw;
  94.   bbh = 1.1 * nh;
  95. } else {
  96.   bbw = nw;
  97.   bbh = nh;
  98. }
  99. #ifdef NOTDEF
  100. double tx = bb.xmin - 0.5 * (bbw - nw);
  101. double ty = bb.ymin - 0.5 * (bbh - nh);
  102. #endif
  104. /*
  105.  * move base coordinate system to origin
  106.  */
  107. #ifdef NOTDEF
  108. matrix_.translate(-tx, -ty);
  109. #endif
  110. matrix_.translate(-bb.xmin, -bb.ymin);
  111. /*
  112.  * flip vertical axis because X is backwards.
  113.  */
  115. double ws = w / bbw;
  116. double hs = h / bbh;
  117. if (aspect_==SQUARE) {
  118.   if (ws <= hs) {
  119.     matrix_.scale(ws, ws);
  120.     scale_=ws;
  121.     matrix_.translate(x, y + 0.5 * (h - ws * bbh));
  122.   } else {
  123.     matrix_.scale(hs, hs);
  124.     scale_=hs;
  125.     matrix_.translate(x + 0.5 * (w - hs * bbw), y);
  126.   }
  127. } else {
  128.   matrix_.scale(ws, hs);
  129.   matrix_.translate(x, y);
  130. }
  131. if ((width_<=0)||(height_<=0)) abort();
  132. matrix_.scale(magnification_, magnification_);
  133. if (xscroll_!=NULL) {
  134.   Tcl& tcl = Tcl::instance();
  135.   tcl.evalf("%s set %f %f", xscroll_, panx_, 
  136.   panx_+(1.0/magnification_));
  137. }
  138. if (yscroll_!=NULL) {
  139.   Tcl& tcl = Tcl::instance();
  140.   tcl.evalf("%s set %f %f", yscroll_, pany_, 
  141.   pany_+(1.0/magnification_));
  142. }
  143. }
  145. void PSView::draw()
  146. {
  147.   int xmin, ymin, xmax, ymax;
  148.   BBox bb;
  149.   BoundingBox(bb);
  150.   matrix_.map(bb.xmin, bb.ymin, xmin, ymin);
  151.   matrix_.map(bb.xmax, bb.ymax, xmax, ymax);
  152.   /*Ensure we have a half inch border*/
  153.   xmin+=36;
  154.   ymin+=36;
  155.   xmax+=36;
  156.   ymax+=36;
  158.   file_ = fopen(name_, "w+");
  159.   fprintf(file_, "%%!PS-Adobe-2.0 EPSF-2.0n");
  160.   fprintf(file_, "%%%%Creator: namn");
  161.   fprintf(file_, "%%%%DocumentFonts: Helvetican");
  162.   fprintf(file_, "%%%%BoundingBox: %d %d %d %dn", xmin, ymin, xmax, ymax);
  163.   fprintf(file_, "%%%%EndCommentsn");
  164.   fprintf(file_, "gsave 36 36 translaten");
  165.   fprintf(file_, "/namdict 20 dict defn");
  166.   fprintf(file_, "namdict beginn");
  167.   fprintf(file_, "/ft {/Helvetica findfont exch scalefont setfontn");
  168.   fprintf(file_, "newpath 0 0 moveto (0) true charpath flattenpathn");
  169.   fprintf(file_, "pathbbox /fh exch def pop pop pop} defn");
  170.   fprintf(file_, "/center_show {/s exch def moveto s stringwidthn");
  171.   fprintf(file_, "pop 2 div neg fh 2 div neg rmoveto s show} defn");
  172.   fprintf(file_, "/north_show {/s exch def moveto s stringwidthn");
  173.   fprintf(file_, "pop 2 div neg fh neg rmoveto s show} defn");
  174.   fprintf(file_, "/south_show {/s exch def moveto s stringwidthn");
  175.   fprintf(file_, "pop 2 div neg 0 rmoveto s show} defn");
  176.   fprintf(file_, "/east_show {/s exch def moveto s stringwidthn");
  177.   fprintf(file_, "pop neg fh 2 div neg rmoveto s show} defn");
  178.   fprintf(file_, "/west_show {/s exch def moveto n");
  179.   fprintf(file_, "0 fh 2 div neg rmoveto s show} defn");
  180.   fprintf(file_, "/rect {newpath /h exch def /w exch def moveton");
  181.   fprintf(file_, "w 0 rlineto 0 h rlineto w neg 0 rlineton");
  182.   fprintf(file_, "0 h neg rlineto closepath stroke} defn");
  183.   fprintf(file_, "/line {newpath moveto lineto stroke} defn");
  184.   fprintf(file_, "/circle {newpath 0 360 arc stroke} defn");
  185.   fprintf(file_, "endn");
  186.   fprintf(file_, "%%%%EndPrologn");
  187.   fprintf(file_, "namdict beginn");
  188.   model_->render(this);
  189.   fprintf(file_, "showpagen");
  190.   fprintf(file_, "endn");
  191.   fprintf(file_, "%%%%Trailern");
  192.   fclose(file_);
  193. }
  195. PSView::PSView(const char* name, NetModel* m)
  196.   : View(name, SQUARE,200,200), model_(m), scale_(1.0)
  197. {
  198.   name_=new char[strlen(name)+1];
  199.   strcpy(name_, name);
  200.   resize(540,720);
  201.   draw();
  202. }
  205. void PSView::getWorldBox(BBox & world_boundary) {
  206.           model_->BoundingBox(world_boundary);
  207. }
  210. extern void Parse(NetModel*, const char* layout);
  212. int PSView::command(ClientData cd, Tcl_Interp* tcl, int argc, char **argv)
  213. {
  214.   PSView *pv = (PSView *)cd;
  215.   if (argc < 2) {
  216.     Tcl_AppendResult(tcl, """, argv[0], "": arg mismatch", 0);
  217.     return (TCL_ERROR);
  218.   }
  219.   if (strcmp(argv[1], "xscroll") == 0) {
  220.     if (argc == 3) {
  221.       pv->xscroll_=new char[strlen(argv[2])+1];
  222.       strcpy(pv->xscroll_, argv[2]);
  223.       return TCL_OK;
  224.     } else {
  225.       Tcl_AppendResult(tcl, """, argv[0],
  226.                        "": arg mismatch", 0);
  227.       return TCL_ERROR;
  228.     }
  229.   }
  230.   if (strcmp(argv[1], "yscroll") == 0) {
  231.     if (argc == 3) {
  232.       pv->yscroll_=new char[strlen(argv[2])+1];
  233.       strcpy(pv->yscroll_, argv[2]);
  234.       return TCL_OK;
  235.     } else {
  236.       Tcl_AppendResult(tcl, """, argv[0],
  237.                        "": arg mismatch", 0);
  238.       return TCL_ERROR;
  239.     }
  240.   }
  241.   if (strcmp(argv[1], "zoom") == 0) {
  242.     if (argc == 3) {
  243.       float mag=atof(argv[2]);
  244.       if (mag>1.0) {
  245. pv->panx_+=(1.0-1.0/mag)/(2.0*pv->magnification_);
  246. pv->pany_+=(1.0-1.0/mag)/(2.0*pv->magnification_);
  247.       } else {
  248. pv->panx_-=(1.0-mag)/(2.0*pv->magnification_*mag);
  249. pv->pany_-=(1.0-mag)/(2.0*pv->magnification_*mag);
  250.       }
  251.       pv->zoom(mag);
  252.       pv->draw();
  253.       //pv->pan(panx, pany);
  254.       return TCL_OK;
  255.     } else {
  256.       Tcl_AppendResult(tcl, """, argv[0],
  257.        "": arg mismatch", 0);
  258.       return TCL_ERROR;
  259.     }
  260.   }
  261.   if ((strcmp(argv[1], "xview") == 0)||(strcmp(argv[1], "yview")==0)) {
  262.     if ((argc==4)&&(strcmp(argv[2], "moveto")==0)) {
  263.       if (strcmp(argv[1], "xview") == 0)
  264. pv->panx_=atof(argv[3]);
  265.       else
  266. pv->pany_=atof(argv[3]);
  267.       pv->resize(pv->width_, pv->height_);
  268.       pv->draw();
  269.     } else if ((argc==5)&&(strcmp(argv[2], "scroll")==0)) {
  270.       float step=atof(argv[3]);
  271.       if (strcmp(argv[4], "units")==0) {
  272. step*=0.05/pv->magnification_;
  273.       } else if (strcmp(argv[4], "pages")==0) {
  274. step*=0.8/pv->magnification_;
  275.       }
  276.       if (strcmp(argv[1], "xview") == 0)
  277. pv->panx_+=step;
  278.       else
  279. pv->pany_+=step;
  280.       pv->resize(pv->width_, pv->height_);
  281.       pv->draw();
  282.     } else {
  283.       Tcl_AppendResult(tcl, """, argv[0],
  284.        "": arg mismatch", 0);
  285.       return TCL_ERROR;
  286.     }
  287.     return TCL_OK;
  288.   }
  289.   Tcl_AppendResult(tcl, """, argv[0], "": unknown arg: ", argv[1], 0);
  290.   return (TCL_ERROR);
  291. }
  294. void 
  295. PSView::line(float x0, float y0, float x1, float y1, int paint)
  296. {
  297. float ax, ay;
  298. matrix_.map(x0, y0, ax, ay);
  299. float bx, by;
  300. matrix_.map(x1, y1, bx, by);
  301. #ifdef NOTDEF
  302. GC gc = Paint::instance()->paint_to_gc(paint);
  303. XDrawLine(Tk_Display(tk_), offscreen_, gc, ax, ay, bx, by);
  304. #endif
  305. rgb *color= Paint::instance()->paint_to_rgb(paint);
  306. fprintf(file_, "%.2f %.2f %.2f setrgbcolorn", color->red/65536.0,
  307. color->green/65536.0,
  308. color->blue/65536.0);
  309. fprintf(file_, "%.1f %.1f %.1f %.1f linen",
  310. ax, ay, bx, by);
  311. }
  313. void PSView::rect(float x0, float y0, float x1, float y1, int paint)
  314. {
  315. float x, y;
  316. matrix_.map(x0, y0, x, y);
  317. float xx, yy;
  318. matrix_.map(x1, y1, xx, yy);
  320. float w = xx - x;
  321. if (w < 0) {
  322. x = xx;
  323. w = -w;
  324. }
  325. float h = yy - y;
  326. if (h < 0) {
  327. h = -h;
  328. y = yy;
  329. }
  330. #ifdef NOTDEF
  331. GC gc = Paint::instance()->paint_to_gc(paint);
  332. XDrawRectangle(Tk_Display(tk_), offscreen_, gc, x, y, w, h);
  333. #endif
  334.   if (x>0 && y>0) {
  335.     rgb *color= Paint::instance()->paint_to_rgb(paint);
  336.     fprintf(file_, "%.2f %.2f %.2f setrgbcolorn", color->red/65536.0,
  337.             color->green/65536.0,
  338.             color->blue/65536.0);
  339.     fprintf(file_, "%.1f %.1f %.1f %.1f rectn", x, y, w, h);
  340.   }
  341. }
  343. typedef struct floatpoint_s {
  344.   float x, y;
  345. } floatpoint;
  347. void PSView::polygon(const float* x, const float* y, int n, int paint)
  348. {
  349. /*XXX*/
  350. floatpoint pts[10];
  351. int i;
  353. for (i = 0; i < n; ++i) {
  354. matrix_.map(x[i], y[i], pts[i].x, pts[i].y);
  355. }
  356. pts[n] = pts[0];
  357. #ifdef NOTDEF
  358. GC gc = Paint::instance()->paint_to_gc(paint);
  359. XDrawLines(Tk_Display(tk_), offscreen_, gc, pts, n + 1,
  360.    CoordModeOrigin);
  361. #endif
  362. fprintf(file_,"%%polygonn");
  363. rgb *color= Paint::instance()->paint_to_rgb(paint);
  364. fprintf(file_, "%.2f %.2f %.2f setrgbcolorn", color->red/65536.0,
  365. color->green/65536.0,
  366. color->blue/65536.0);
  367. fprintf(file_, "newpath %.1f %.1f moveton", pts[0].x, pts[0].y);
  368. for(i=1; i<=n; i++)
  369.   fprintf(file_, "%.1f %.1f lineton", pts[i].x, pts[i].y);
  370. fprintf(file_, "closepath stroken");
  371. }
  373. void PSView::fill(const float* x, const float* y, int n, int paint)
  374. {
  375. /*XXX*/
  376. floatpoint pts[10];
  377. int i;
  379. for (i = 0; i < n; ++i) {
  380. matrix_.map(x[i], y[i], pts[i].x, pts[i].y);
  381. }
  382. pts[n] = pts[0];
  383. #ifdef NOTDEF
  384. GC gc = Paint::instance()->paint_to_gc(paint);
  385. XFillPolygon(Tk_Display(tk_), offscreen_, gc, pts, n + 1,
  386.      Convex, CoordModeOrigin);
  387. #endif
  388. fprintf(file_,"%%filln");
  389. rgb *color= Paint::instance()->paint_to_rgb(paint);
  390. fprintf(file_, "%.2f %.2f %.2f setrgbcolorn", color->red/65536.0,
  391. color->green/65536.0,
  392. color->blue/65536.0);
  393. fprintf(file_, "newpath %.1f %.1f moveton", pts[0].x, pts[0].y);
  394. for(i=1; i<=n; i++)
  395.   fprintf(file_, "%.1f %.1f lineton", pts[i].x, pts[i].y);
  396. fprintf(file_, "filln");
  397. }
  399. void PSView::circle(float x, float y, float r, int paint)
  400. {
  401. float tx, ty;
  402. matrix_.map(x, y, tx, ty);
  403. float tr, dummy;
  404. matrix_.map(x + r, y, tr, dummy);
  405. tr -= tx;
  406. #ifdef NOTDEF
  407. GC gc = Paint::instance()->paint_to_gc(paint);
  408. XDrawArc(Tk_Display(tk_), offscreen_, gc, tx, ty, tr, tr, 0, 64 * 360);
  409. #endif
  410. rgb *color= Paint::instance()->paint_to_rgb(paint);
  411. fprintf(file_, "%.2f %.2f %.2f setrgbcolorn", color->red/65536.0,
  412. color->green/65536.0,
  413. color->blue/65536.0);
  414. fprintf(file_, "%.1f %.1f %.1f circlen", tx, ty, tr);
  415. }
  417. // We'll ignore string color in PS view!
  418. void PSView::string(float fx, float fy, float dim, const char* s, int anchor, 
  419.     const char*)
  420. {
  421.   float x, y;
  422.   matrix_.map(fx, fy, x, y);
  424.   float dummy, dlow, dhigh;
  425.   matrix_.map(0., 0., dummy, dlow);
  426.   matrix_.map(0., 0.6 * dim, dummy, dhigh);
  427.   int d = int(dhigh - dlow);
  428.   fprintf(file_, "%d ftn", d);
  430.   fprintf(file_, "0 0 0 setrgbcolorn");
  431.   switch (anchor) {
  432.   case ANCHOR_CENTER:
  433.     fprintf(file_, "%.1f %.1f (%s) center_shown", x, y, s);
  434.     break;
  435.   case ANCHOR_NORTH:
  436.     fprintf(file_, "%.1f %.1f (%s) north_shown", x, y, s);
  437.     break;
  438.   case ANCHOR_SOUTH:
  439.     fprintf(file_, "%.1f %.1f (%s) south_shown", x, y, s);
  440.     break;
  441.   case ANCHOR_WEST:
  442.     fprintf(file_, "%.1f %.1f (%s) west_shown", x, y, s);
  443.     break;
  444.   case ANCHOR_EAST:
  445.     fprintf(file_, "%.1f %.1f (%s) east_shown", x, y, s);
  446.     break;
  447.   }
  448. }