xpix.shar

spice中支持多层次元件模型仿真的可单独运行的插件源码

X
X/*ARGSUSED*/
Xvoid TimeOutCallback(data)
X     caddr_t data;
X{
X  /* If there's another grid available draw it */
X
X  if (GetNextGrid(grid))
X    DrawGrid(grid);
X  
X  /* Always restore the call back */
X
X  timer = XtAddTimeOut(interval, TimeOutCallback, NULL);
X
X}  
X
X/*ARGSUSED*/
Xvoid StartStop(widget, data, event)
X     Widget widget;
X     caddr_t data;
X     XEvent *event;
X{
X  /* Toggle propagation of display */
X
X  if (working) {
X    XtRemoveTimeOut(timer);
X    working = False;
X    XtSetArg(arg[0], XtNlabel, "Start");   /* Reset button label */
X    XtSetValues(start_button,arg,1);
X    XFlush(display);
X  }
X  else {
X    XtSetArg(arg[0], XtNlabel, "Stop");   /* Reset button label */
X    XtSetValues(start_button,arg,1);
X    timer = XtAddTimeOut(interval, TimeOutCallback, NULL);
X    working = True;
X    XFlush(display);
X  }
X}  
X
Xvoid HSVtoRGB(h, s, v, r, g, b)
X     double h, s, v, *r, *g, *b;
X/*
X  hue (0-360), s&v (0-1), r&g&b (0-1)
X*/
X{
X  int ih;
X  double rh, x, y, z;
X
X  /* Zero saturation means gray */
X
X  if (s < 0.0001) {
X    *r = v; *g = v; *b = v;
X    return;
X  }
X
X  /* Put hue in [0,6) */
X
X  if (h > 359.999)
X    h = 0.0;
X  else
X    h = h/60.0;
X
X  ih = h; rh = h - ih;     /* Integer and fractional parts */
X
X  x = v*(1.0 - s);
X  y = v*(1.0-s*rh);
X  z = v*(1.0-s*(1.0-rh));
X
X  switch (ih) {
X  case 0:
X    *r = v; *g = z; *b = x; break;
X  case 1:
X    *r = y; *g = v; *b = x; break;
X  case 2:
X    *r = x; *g = v; *b = z; break;
X  case 3:
X    *r = x; *g = y; *b = v; break;
X  case 4:
X    *r = z; *g = x; *b = v; break;
X  case 5:
X    *r = v; *g = x; *b = y; break;
X  default:
X    Error("HLStoRGB: invalid hue", ih);
X  }
X}
X
Xvoid Setcmap()
X/*
X  Make the color map ... scheme base on linear interpolation of hsv.
X*/
X{
X  int i;
X  XColor color;
X  Colormap colormap;
X  double scale = 1.0 / ((double) (MAX_COL-1));
X  double hue, saturation, value, red, green, blue;
X
X  colormap = DefaultColormap(display, screen);
X
X  for (i=0; i<MAX_COL; i++) {
X
X    saturation = scale * i;
X    hue = 360.0 * saturation;
X    value = 1.0;
X
X    HSVtoRGB(hue, saturation, value, &red, &green, &blue);
X
X    color.red   = (short) (red   * 65535.0);
X    color.green = (short) (green * 65535.0);
X    color.blue  = (short) (blue  * 65535.0);
X
X    if (XAllocColor(display, colormap, &color) == 0)
X      Error("couldn't assign color",i);
X
X    cmap[i] = color.pixel;
X/*
X    (void) printf("Colour %d red=%x, green=%x, blue=%x, pixel=%x\n",
X		  i, color.red, color.green, color.blue, color.pixel);
X*/
X  }
X
X  /* Unused */
X  /* Get rgb color from ascii name */
X  /*    if (XParseColor(display, colormap, colors[i], &color) == 0)
X	Error("Setcmap: error parsing color number ",i); */
X
X}
X
Xint main(argc, argv)
X     unsigned int argc;
X     char **argv;
X{
X  int n;
X  Dimension frame_size;
X
X  /* First input is the MAXIMUM grid size ... can't do anything
X     without this */
X
X  if (fread(&max_grid_size, sizeof(int), 1, stdin) != 1)
X    Error("Failed to get max_grid_size", -1);
X
X  max_grid_size = ntohl(max_grid_size);  /* Convert to machine format */
X
X  frame_size = MAX(max_grid_size, 256);
X
X  /* Create top level shell widget */
X  
X  top_level_widget = XtInitialize("toplevel", "TopLevel",
X				  NULL, 0, &argc, argv);
X
X  /* Create form widget to hold everything else */
X
X  n = 0;
X  box_widget = XtCreateManagedWidget("box", formWidgetClass, 
X				     top_level_widget, arg, n);
X
X  /* Create the label to hold the title */
X
X  (void) strcpy(title, "2-D Grid Display");
X  n = 0;
X  XtSetArg(arg[n], XtNx, 10); n++;
X  XtSetArg(arg[n], XtNy, 10); n++;
X  XtSetArg(arg[n], XtNwidth, frame_size); n++;
X  XtSetArg(arg[n], XtNlabel, title); n++;
X  XtSetArg(arg[n], XtNborderWidth, (Dimension) 0); n++;
X  title_widget = XtCreateManagedWidget("title", labelWidgetClass,
X				       box_widget, arg, n);
X
X  /* Create the label to hold the grid data */
X
X  (void) strcpy(grid_data, " ");
X  n = 0;
X  XtSetArg(arg[n], XtNvertDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromVert, title_widget); n++;
X  XtSetArg(arg[n], XtNjustify, XtJustifyLeft); n++;
X  XtSetArg(arg[n], XtNwidth, frame_size); n++;
X  XtSetArg(arg[n], XtNlabel, " "); n++;
X  grid_data_widget = XtCreateManagedWidget("grid data", labelWidgetClass,
X					   box_widget, arg, n);
X
X  /* Create the file menu button and the menu ... also a bit
X     further down make and add the check mark */
X
X  n = 0;
X  XtSetArg(arg[n], XtNvertDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromVert, grid_data_widget); n++;
X  XtSetArg(arg[n], XtNlabel, "File"); n++;
X  XtSetArg(arg[n], XtNmenuName, "file menu"); n++;
X  XtSetArg(arg[n], XtNshapeStyle, XmuShapeOval); n++;
X  file_menu_button = XtCreateManagedWidget("file", menuButtonWidgetClass,
X				      box_widget, arg, n);
X  file_menu = XtCreatePopupShell("file menu", simpleMenuWidgetClass,
X				 file_menu_button, NULL, 0);
X
X  for (n=0; n<n_file_menu_entries; n++) {
X    String item = file_menu_entries[n];
X    file_menu_widgets[n] = XtCreateManagedWidget(item, smeBSBObjectClass, 
X					      file_menu, NULL, 0);
X    XtAddCallback(file_menu_widgets[n], XtNcallback,
X		  FileMenuCallback, (caddr_t) n);
X  }
X
X  /* Create the Start/Stop command button */
X
X  n = 0;
X  XtSetArg(arg[n], XtNvertDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromVert, grid_data_widget); n++;
X  XtSetArg(arg[n], XtNhorizDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromHoriz, file_menu_button); n++;
X  XtSetArg(arg[n], XtNlabel, "Start"); n++;
X  XtSetArg(arg[n], XtNshapeStyle, XmuShapeOval); n++;
X  start_button = XtCreateManagedWidget("start/stop", commandWidgetClass,
X				       box_widget, arg, n);
X  XtAddCallback(start_button, XtNcallback, StartStop, NULL);
X
X  /* Create the scroll bar for the interval */
X
X  n = 0;
X  XtSetArg(arg[n], XtNvertDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromVert, grid_data_widget); n++;
X  XtSetArg(arg[n], XtNhorizDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromHoriz, start_button); n++;
X  XtSetArg(arg[n], XtNorientation, XtorientHorizontal); n++;
X  XtSetArg(arg[n], XtNlength, 100); n++;
X  XtSetArg(arg[n], XtNthickness, 15); n++;
X  scroll_widget = XtCreateManagedWidget("scroll", scrollbarWidgetClass,
X					box_widget, arg, n);
X  XtAddCallback(scroll_widget, XtNscrollProc, ScrollProc, NULL);
X  XtAddCallback(scroll_widget, XtNjumpProc, JumpProc, NULL);
X
X  /* Create the label widget which displays the interval value
X     associated with the scrollbar. */
X
X  n = 0;
X  (void) sprintf(interval_string, "%4d ms", interval);
X  XtSetArg(arg[n], XtNvertDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromVert, grid_data_widget); n++;
X  XtSetArg(arg[n], XtNhorizDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromHoriz, scroll_widget); n++;
X  XtSetArg(arg[n], XtNjustify, XtJustifyRight); n++;
X  XtSetArg(arg[n], XtNlabel, interval_string); n++;
X  XtSetArg(arg[n], XtNborderWidth, (Dimension) 0); n++;
X  interval_widget = XtCreateManagedWidget("interval", labelWidgetClass,
X					   box_widget, arg, n);
X  
X  /* Now add the actual canvas ... PICT_SIZE square pixels*/
X
X  n=0;
X  XtSetArg(arg[n],XtNheight, PICT_SIZE); n++;
X  XtSetArg(arg[n],XtNwidth,  PICT_SIZE); n++;
X  XtSetArg(arg[n], XtNvertDistance, 10); n++;
X  XtSetArg(arg[n], XtNfromVert, file_menu_button); n++;
X  canvas_widget = XtCreateManagedWidget("canvas", compositeWidgetClass,
X					box_widget, arg, n);
X
X  /* Add callback for exposure */
X
X  XtAddEventHandler(canvas_widget,ExposureMask,False,Exposed,NULL);
X
X  /* Realize everything */
X
X  XtRealizeWidget(top_level_widget);
X
X  /* Set up the drawing environment */
X
X  display = XtDisplay(canvas_widget);
X  window = XtWindow(canvas_widget); 
X  screen = DefaultScreen(display);
X  visual = DefaultVisual(display, screen);
X  depth = DisplayPlanes(display, screen);
X  (void) printf("depth = %d\n",depth);
X  gc = XCreateGC(display, window, 0, (XGCValues *) NULL); 
X  
X  Setcmap();
X
X  /* Make the pixmap for the check mark for a selected menu item
X     and mark the cycle item as selected */
X
X  check_mark = XCreateBitmapFromData(display, window, 
X				     check_bits, check_width, check_height);
X  n=0;
X  XtSetArg(arg[n], XtNrightBitmap, check_mark); n++;
X  XtSetValues(file_menu_widgets[1], arg, n);
X
X  /* Make image to match the size of our canvas .. PICT_SIZExPICT_SIZE */
X
X  pict  = (u_char *) malloc(PICT_SIZE*PICT_SIZE);
X  image = XCreateImage(display, visual, depth, ZPixmap, 0,
X		       pict, PICT_SIZE, PICT_SIZE, 8, 0);
X
X  /* Make the byte array which will hold the frames */
X
X  grid = (u_char *) malloc(max_grid_size*max_grid_size);
X
X  /* Enter the event loop */
X
X  XtMainLoop();
X
X  return 0;  /* Never actually does this */
X}
//E*O*F xpix.c//

exit 0