-+-+-+-+-+-+-+-+ START OF PART 253 -+-+-+-+-+-+-+-+
X  psetannotationcharheight(readreal("annotation character height  ? "));
X`7D  /* do_psetannotationcharheight */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetannotationcharup()
X`7B
X  Pvector v;
X
X  v = readvector("annotation character up vector");
X  psetannotationcharup(&v);
X`7D  /* do_psetannotationcharup */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetannotationpath()
X`7B
X  Ptxpath p;
X
X  p = readphigsenum(PTKETXPATH, "annotation text path ? ");
X  psetannotationpath(p);
X`7D  /* do_psetannotationpath */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetannotationstyle()
X`7B
X  psetannotationstyle(readinteger("annotation style ? "));
X`7D  /* do_psetannotationstyle */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetcharexpan()
X`7B
X  psetcharexpan(readreal("character expansion ? "));
X`7D  /* do_psetcharexpan */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetcharheight()
X`7B
X  psetcharheight(readreal("character height ? "));
X`7D  /* do_psetcharheight */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetcharspace()
X`7B
X  psetcharspace(readreal("character spacing ? "));
X`7D  /* do_psetcharspace */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetcharup()
X`7B
X  Pvector v;
X
X  v = readvector("character up vector");
X  psetcharup(&v);
X`7D  /* do_psetcharup */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetchoicemode()
X`7B
X  Pint wsid, dev;
X  Pimode mode;
X  Pesw echo;
X
X  wsid = readinteger("workstation identifier ? ");
X  dev = readinteger("choice device number ? ");
X  mode = readphigsenum(PTKEIMODE, "operating mode ? ");
X  echo = readphigsenum(PTKEESW, "echo switch ? ");
X  psetchoicemode(wsid, dev, mode, echo);
X`7D  /* do_psetchoicemode */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetcolourmodel()
X`7B
X  Pint wsid, model;
X
X  wsid = readinteger("workstation identifier ? ");
X  model = readinteger("colour model ? ");
X  psetcolourmodel(wsid, model);
X`7D  /* do_psetcolourmodel */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetcolourrep()
X`7B
X  Pint w, i;
X  Pcobundl c;
X
X  w = readinteger("workstation identifier ? ");
X  i = readintvalue("colour table index ? ", PTKECOLOURIND);
X  c = readcolour();
X  psetcolourrep(w, i, c);
X`7D  /* do_psetcolourrep */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetconfres()
X`7B
X  psetconfres(readphigsenum(PTKECONFRES, "archive conflict ? "), readphigsen
Vum(PTKECONFRES, "retrieve conflict ? "));
X`7D  /* do_psetconfres */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetdisplayupdatest()
X`7B
X  Pint wsid;
X  Pdefmode defer;
X  Pmod modmode;
X
X  wsid = readinteger("workstation identifier ? ");
X  defer = readphigsenum(PTKEDEFMODE, "deferral mode ? ");
X  modmode = readphigsenum(PTKEMOD, "modification mode ? ");
X  psetdisplayupdatest(wsid, defer, modmode);
X`7D  /* do_psetdisplayupdatest */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetedgecolourind()
X`7B
X  psetedgecolourind(readintvalue("edge colour index ? ", PTKECOLOURIND));
X`7D  /* do_psetedgecolourind */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetedgeflag()
X`7B
X  Pedgef edgeflag;
X
X  edgeflag = readphigsenum(PTKEEDGEF, "edge flag ? ");
X  psetedgeflag(edgeflag);
X`7D  /* do_psetedgeflag */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetedgeind()
X`7B
X  psetedgeind(readinteger("edge index ? "));
X`7D  /* do_psetedgeind */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetedgerep()
X`7B
X  Pint wsid, index;
X  Pedgebundl rep;
X
X  wsid = readinteger("workstation identifier ? ");
X  index = readinteger("edge bundle index ? ");
X  readedgebundl(&rep);
X  psetedgerep(wsid, index, &rep);
X`7D  /* do_psetedgerep */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetedgewidth()
X`7B
X  psetedgewidth(readreal("edge width ? "));
X`7D  /* do_psetedgewidth */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetedgetype()
X`7B
X  psetedgetype(readinteger("edge type ? "));
X`7D  /* do_psetedgetype */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pseteditmode()
X`7B
X  Peditmode mode;
X
X  mode = readphigsenum(PTKEEDITMODE, "edit mode ? ");
X  pseteditmode(mode);
X`7D  /* do_pseteditmode */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetelemptr()
X`7B
X  psetelemptr(readinteger("element pointer ? "));
X`7D  /* do_psetelemptr */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetelemptrlabel()
X`7B
X  psetelemptrlabel(readintvalue("label ? ", PTKELABELVAL));
X`7D  /* do_psetelemptrlabel */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_pseterrorhandmode()
X`7B
X  Perrormode mode;
X
X  mode = readphigsenum(PTKEERRORMODE, "error handling mode ? ");
X  pseterrorhandmode(mode);
X`7D  /* do_pseterrorhandmode */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetglobaltran()
X`7B
X  Pmatrix xform;
X
X  readmatrix(xform, "global transformation matrix");
X  psetglobaltran(xform);
X`7D  /* do_psetglobaltran */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetglobaltran3()
X`7B
X  Pmatrix3 m;
X
X  readmatrix3(m, "global transformation matrix");
X  psetglobaltran3(m);
X`7D  /* do_psetglobaltran3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psethlhsrid()
X`7B
X  psethlhsrid(readinteger("HLHSR identifier ? "));
X`7D  /* do_psethlhsrid */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psethlhsrmode()
X`7B
X  Pint wsid, mode;
X
X  wsid = readinteger("workstation identifier ? ");
X  mode = readinteger("HLHSR mode ? ");
X  psethlhsrmode(wsid, mode);
X`7D  /* do_psethlhsrmode */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psethilightfilter()
X`7B
X  Pint w;
X  Pintlst incl, excl;
X
X  w = readinteger("workstation identifier ? ");
X  readintlst(&incl, "inclusion set", PTKENAME);
X  readintlst(&excl, "exclusion set", PTKENAME);
X  psethilightfilter(w, &incl, &excl);
X  free(incl.integers);
X  free(excl.integers);
X`7D  /* do_psethilightfilter */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetindivasf()
X`7B
X  Pattrid attid;
X  Pasf attsource;
X
X  attid = readphigsenum(PTKEATTRID, "attribute identifier ? ");
X  attsource = readphigsenum(PTKEASF, "attribute source ? ");
X  psetindivasf(attid, attsource);
X`7D  /* do_psetindivasf */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetintcolourind()
X`7B
X  psetintcolourind(readintvalue("interior colour index ? ", PTKECOLOURIND));
X`7D  /* do_psetintcolourind */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetintind()
X`7B
X  psetintind(readinteger("interior index ? "));
X`7D  /* do_psetintind */
X
X/*--------------------------------------------------------------------------
V-*/
X
Xstatic void do_psetintrep()
X`7B
X  Pint wsid, index;
X  Pinterbundl rep;
X
X  wsid = readinteger("workstation identifier ? ");
X  index = readinteger("interior bundle index ? ");
X  readinterbundl(&rep);
X  psetintrep(wsid, index, &rep);
X`7D  /* do_psetintrep */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetintstyle()
X`7B
X  Pinterstyle style;
X
X  style = readphigsenum(PTKEINTERSTYLE, "interior style ? ");
X  psetintstyle(style);
X`7D  /* do_psetintstyle */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetintstyleind()
X`7B
X  psetintstyleind(readinteger("interior style index ? "));
X`7D  /* do_psetintstyleind */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetinvisfilter()
X`7B
X  Pint w;
X  Pintlst incl, excl;
X
X  w = readinteger("workstation identifier ? ");
X  readintlst(&incl, "inclusion set", PTKENAME);
X  readintlst(&excl, "exclusion set", PTKENAME);
X  psetinvisfilter(w, &incl, &excl);
X  free(incl.integers);
X  free(excl.integers);
X`7D  /* do_psetinvisfilter */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetlinecolourind()
X`7B
X  psetlinecolourind(readintvalue("line colour index ? ", PTKECOLOURIND));
X`7D  /* do_psetlinecolourind */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetlinewidth()
X`7B
X  psetlinewidth(readreal("line width ? "));
X`7D  /* do_psetlinewidth */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetlinetype()
X`7B
X  psetlinetype(readinteger("line type ? "));
X`7D  /* do_psetlinetype */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetlocaltran()
X`7B
X  Pmatrix m;
X  Pcomptype c;
X
X  readmatrix(m, "matrix elements");
X  c = readphigsenum(PTKECOMPTYPE, "composition type ? ");
X  psetlocaltran(m, c);
X`7D  /* do_psetlocaltran */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetlocaltran3()
X`7B
X  Pmatrix3 m;
X  Pcomptype c;
X
X  readmatrix3(m, "matrix elements");
X  c = readphigsenum(PTKECOMPTYPE, "composition type ? ");
X  psetlocaltran3(m, c);
X`7D  /* do_psetlocaltran3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetlocmode()
X`7B
X  Pint wsid, dev;
X  Pimode mode;
X  Pesw echo;
X
X  wsid = readinteger("workstation identifier ? ");
X  dev = readinteger("locator device number ? ");
X  mode = readphigsenum(PTKEIMODE, "operating mode ? ");
X  echo = readphigsenum(PTKEESW, "echo switch ? ");
X  psetlocmode(wsid, dev, mode, echo);
X`7D  /* do_psetlocmode */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetmarkercolourind()
X`7B
X  psetmarkercolourind(readintvalue("marker colour index ? ", PTKECOLOURIND))
V;
X`7D  /* do_psetmarkercolourind */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetmarkersize()
X`7B
X  psetmarkersize(readreal("marker size ? "));
X`7D  /* do_psetmarkersize */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetmarkertype()
X`7B
X  psetmarkertype(readinteger("marker type ? "));
X`7D  /* do_psetmarkertype */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetmodelclipindicator()
X`7B
X#ifdef SUN
X  Pclip ind;
X
X  ind = readphigsenum(PTKECLIP, "clipping indicator ? ");
X  psetmodelclipindicator(ind);
X#endif
X#ifdef VMS
X  phintererror(1, (Pchar *)NULL, INFORM);
X#endif
X`7D  /* do_psetmodelclipindicator */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetmodelclipvolume()
X`7B
X#ifdef SUN
X  Pint op, i;
X  Phalfspacelst halfspaces;
X
X  op = readinteger("operator ? ");
X  halfspaces.number = readinteger("number of half spaces ? ");
X  halfspaces.half_spaces = (Phalfspace *)calloc(halfspaces.number,`20
X                           sizeof(Phalfspace));
X  for (i = 0; i < halfspaces.number; i++)
X  `7B
X    halfspaces.half_spaces`5Bi`5D.pt = readpoint("half space point");
X    halfspaces.half_spaces`5Bi`5D.normal = readvector("half space normal");
X  `7D
X  psetmodelclipvolume(op, &halfspaces);
X#endif
X#ifdef VMS
X  phintererror(1, (Pchar *)NULL, INFORM);
X#endif
X`7D  /* do_psetmodelclipvolume */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetmodelclipvolume3()
X`7B
X#ifdef SUN
X  Pint op, i;
X  Phalfspacelst3 halfspaces;
X
X  op = readinteger("operator ? ");
X  halfspaces.number = readinteger("number of half spaces ? ");
X  halfspaces.half_spaces = (Phalfspace3 *)calloc(halfspaces.number,`20
X                           sizeof(Phalfspace3));
X  for (i = 0; i < halfspaces.number; i++)
X  `7B
X    halfspaces.half_spaces`5Bi`5D.pt = readpoint3("half space point");
X    halfspaces.half_spaces`5Bi`5D.normal = readvector3("half space normal");
X  `7D
X  psetmodelclipvolume3(op, &halfspaces);
X#endif
X#ifdef VMS
X  phintererror(1, (Pchar *)NULL, INFORM);
X#endif
X`7D  /* do_psetmodelclipvolume3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetpatrefpt()
X`7B
X#ifdef SUN
X  Ppoint refpt;
X
X  refpt = readpoint("pattern reference point");
X  psetpatrefpt(&refpt);
X#endif
X#ifdef VMS
X  phintererror(1, (Pchar *)NULL, INFORM);
X#endif
X`7D  /* do_psetpatrefpt */
X
X/*--------------------------------------------------------------------------
V*/
X
Xstatic void do_psetpatrefptvectors()
X`7B
X#ifdef SUN
X  Ppoint3 refpt;
X  Pvector3 dx, dy;
X
+-+-+-+-+-+-+-+-  END  OF PART 253 +-+-+-+-+-+-+-+-