430 lines
15 KiB
C
430 lines
15 KiB
C
/*
|
|
* Copyright (c) 1986, 1987, 1988, 1989 by Sun Microsystems, Inc.
|
|
* Permission to use, copy, modify, and distribute this software for any
|
|
* purpose and without fee is hereby granted, provided that the above
|
|
* copyright notice appear in all copies and that both that copyright
|
|
* notice and this permission notice are retained, and that the name
|
|
* of Sun Microsystems, Inc., not be used in advertising or publicity
|
|
* pertaining to this software without specific, written prior permission.
|
|
* Sun Microsystems, Inc., makes no representations about the suitability
|
|
* of this software or the interface defined in this software for any
|
|
* purpose. It is provided "as is" without express or implied warranty.
|
|
*/
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)outprim3.c 1.1 94/10/31 Copyr 1986 Sun Micro";
|
|
#endif
|
|
|
|
/*
|
|
* Copyright (c) 1986 by Sun Microsystems, Inc.
|
|
*/
|
|
|
|
#include "coretypes.h"
|
|
#include "corevars.h"
|
|
#include <math.h>
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* FUNCTION: inquire_current_position_3 */
|
|
/* */
|
|
/* PURPOSE: INQUIRE CURRENT DRAWING POSITION */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
inquire_current_position_3(x,y,z) float *x,*y,*z;
|
|
{
|
|
*x = _core_cp.x;
|
|
*y = _core_cp.y;
|
|
*z = _core_cp.z;
|
|
return(0);
|
|
}
|
|
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* FUNCTION: line_abs_3 */
|
|
/* */
|
|
/* PURPOSE: DESCRIBE A LINE OF AN OBJECT IN WORLD COORDINATES.THIS LINE */
|
|
/* RUNS FROM CP TO THE POSITION SPECIFIED. CP IS UPDATED. */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
line_abs_3(x,y,z) float x,y,z;
|
|
{
|
|
viewsurf *surfp;
|
|
int (*surfdd)();
|
|
pt_type p1;
|
|
ipt_type ip1,ip2,ip3,ip4,dummy;
|
|
char *funcname;
|
|
short ptype, n, pt2winclip, earlyexit;
|
|
ddargtype ddstruct;
|
|
float f;
|
|
|
|
funcname = "line_abs_3";
|
|
if (! _core_osexists) {
|
|
_core_errhand(funcname, 21);
|
|
return(1);
|
|
}
|
|
_core_critflag++;
|
|
if (_core_fastflag && (_core_current.linestyl == SOLID) && _core_fastwidth)
|
|
{
|
|
float xarray[1], yarray[1], zarray[1];
|
|
|
|
for (n=0; n < _core_openseg->vsurfnum; n++) {
|
|
surfp = _core_openseg->vsurfptr[n];
|
|
surfdd = surfp->vsurf.dd;
|
|
ddstruct.instance = surfp->vsurf.instance;
|
|
if (_core_linecflag || _core_ropflag || _core_linatt) {
|
|
ddstruct.opcode = SETLCOL; /* color changed */
|
|
ddstruct.int1 = _core_current.lineindx;
|
|
ddstruct.int2 =
|
|
(_core_xorflag)?XORROP:_core_current.rasterop;
|
|
ddstruct.int3 = FALSE;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
if (_core_lsflag || _core_linatt) { /* line style changed */
|
|
ddstruct.opcode = SETSTYL;
|
|
ddstruct.int1 = _core_current.linestyl;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
if (_core_lwflag || _core_linatt) { /* line width changed */
|
|
ddstruct.opcode = SETWIDTH;
|
|
f = (float)((_core_ndcspace[0]<_core_ndcspace[1])?
|
|
_core_ndcspace[0] : _core_ndcspace[1]);
|
|
ddstruct.int1 = _core_current.linwidth * f / 100;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
ddstruct.opcode = WLDVECSTOSCREEN;
|
|
ddstruct.logical = THREED;
|
|
ddstruct.int1 = 1; /* # of vectors */
|
|
ddstruct.int2 = (int) &_core_cp;
|
|
xarray[0] = x; yarray[0] = y; zarray[0] = z;
|
|
ddstruct.ptr1 = (char *) xarray;
|
|
ddstruct.ptr2 = (char *) yarray;
|
|
ddstruct.ptr3 = (char *) zarray;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
_core_cp.x = x; _core_cp.y = y; _core_cp.z = z;
|
|
_core_linecflag = FALSE;
|
|
_core_ropflag = FALSE;
|
|
_core_lsflag = FALSE;
|
|
_core_lwflag = FALSE;
|
|
_core_linatt = FALSE;
|
|
_core_cpchang = TRUE;
|
|
if (--_core_critflag == 0 && _core_updatewin && _core_sighandle)
|
|
(*_core_sighandle)();
|
|
return (0);
|
|
}
|
|
else if (_core_xformvs)
|
|
{
|
|
short resultflags[1];
|
|
float xarray[1], yarray[1], zarray[1];
|
|
|
|
ddstruct.opcode = WLDVECSTONDC;
|
|
ddstruct.instance = _core_xformvs->instance;
|
|
ddstruct.logical = THREED;
|
|
ddstruct.int1 = 1; /* # of vectors */
|
|
ddstruct.int2 = (int) &_core_cp;
|
|
ddstruct.int3 = (int) resultflags;
|
|
xarray[0] = x; yarray[0] = y; zarray[0] = z;
|
|
ddstruct.ptr1 = (char *) xarray;
|
|
ddstruct.ptr2 = (char *) yarray;
|
|
ddstruct.ptr3 = (char *) zarray;
|
|
*((ipt_type **) &ddstruct.float1) = &ip1;
|
|
*((ipt_type **) &ddstruct.float2) = &ip2;
|
|
(*_core_xformvs->dd)(&ddstruct);
|
|
_core_cp.x = x; _core_cp.y = y; _core_cp.z = z;
|
|
if (resultflags[0] < 0)
|
|
{ /* vector not visible */
|
|
_core_cpchang = TRUE;
|
|
if (--_core_critflag == 0 && _core_updatewin && _core_sighandle) (*_core_sighandle)();
|
|
return(0);
|
|
}
|
|
_core_cpchang |= (resultflags[0] & 1); /* bit 0 indicates pt1 clipped */
|
|
pt2winclip = (resultflags[0] & 2); /* bit 1 indicates pt2 clipped */
|
|
}
|
|
else {
|
|
ip1 = _core_ndccp;
|
|
_core_cp.x = x; _core_cp.y = y; _core_cp.z = z;
|
|
_core_tranpt( &_core_cp.x, &p1.x); /* view xform wld to ndc */
|
|
_core_pt3cnvrt( &p1.x, &ip2.x);
|
|
dummy = ip2;
|
|
pt2winclip = 0;
|
|
if(_core_wclipplanes) {
|
|
if (!_core_clipvec(&ip1,&ip2)) { /* if not visible */
|
|
_core_ndccp = dummy;
|
|
_core_cpchang = TRUE;
|
|
if (--_core_critflag == 0 && _core_updatewin && _core_sighandle)
|
|
(*_core_sighandle)();
|
|
return(0);
|
|
}
|
|
_core_cpchang |= ((ip1.x != _core_ndccp.x) || (ip1.y != _core_ndccp.y));
|
|
pt2winclip = ((ip2.x != dummy.x) || (ip2.y != dummy.y) ||
|
|
(ip2.z != dummy.z));
|
|
}
|
|
_core_vwpscale( &ip1); /* viewport scale to NDC */
|
|
_core_vwpscale( &ip2);
|
|
}
|
|
if (_core_openseg->type >= RETAIN) {
|
|
ptype = PDFPICKID;
|
|
_core_pdfwrite(SHORT,&ptype);
|
|
_core_pdfwrite(FLOAT,(short *)&_core_current.pickid);
|
|
n = 0;
|
|
_core_pdfwrite(SHORT,&n);
|
|
|
|
if (_core_ropflag) { /* color changed */
|
|
ptype = PDFROP; _core_pdfwrite(SHORT,&ptype);
|
|
_core_pdfwrite(FLOAT,(short *)&_core_current.rasterop);
|
|
}
|
|
if (_core_linecflag) { /* color changed */
|
|
ptype = PDFLCOLOR; _core_pdfwrite(SHORT,&ptype);
|
|
_core_pdfwrite(FLOAT,(short *)&_core_current.lineindx);
|
|
}
|
|
if (_core_lsflag) { /* line style changed */
|
|
ptype = PDFLINESTYLE; _core_pdfwrite(SHORT,&ptype);
|
|
_core_pdfwrite(FLOAT,(short *)&_core_current.linestyl);
|
|
}
|
|
if (_core_lwflag) { /* line width changed */
|
|
ptype = PDFLINEWIDTH; _core_pdfwrite(SHORT,&ptype);
|
|
_core_pdfwrite(FLOAT,(short *)&_core_current.linwidth);
|
|
}
|
|
if (_core_cpchang) {
|
|
/* if the cp has been changed since last put in pdf */
|
|
ptype = PDFMOVE; _core_pdfwrite(SHORT,&ptype);
|
|
_core_pdfwrite(FLOAT*3,(short *)&ip1);
|
|
_core_update_segbndbox(_core_openseg, &ip1);
|
|
}
|
|
ptype = PDFLINE; _core_pdfwrite(SHORT,&ptype);
|
|
_core_pdfwrite(FLOAT*3,(short *)&ip2);
|
|
_core_update_segbndbox(_core_openseg, &ip2);
|
|
}
|
|
/*** now write the vector to the appropriate view surfaces***/
|
|
|
|
earlyexit = FALSE;
|
|
for (n = 0; n < _core_openseg->vsurfnum; n++) {
|
|
surfp = _core_openseg->vsurfptr[n];
|
|
surfdd = surfp->vsurf.dd;
|
|
ddstruct.instance = surfp->vsurf.instance;
|
|
if (_core_linecflag || _core_ropflag || _core_linatt) {
|
|
ddstruct.opcode = SETLCOL; /* color changed */
|
|
ddstruct.int1 = _core_current.lineindx;
|
|
ddstruct.int2 = (_core_xorflag)?XORROP:_core_current.rasterop;
|
|
ddstruct.int3 = FALSE;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
if (_core_lsflag || _core_linatt) { /* line style changed */
|
|
ddstruct.opcode = SETSTYL;
|
|
ddstruct.int1 = _core_current.linestyl;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
if (_core_lwflag || _core_linatt) { /* line width changed */
|
|
ddstruct.opcode = SETWIDTH;
|
|
f = (float)((_core_ndcspace[0]<_core_ndcspace[1])?
|
|
_core_ndcspace[0] : _core_ndcspace[1]);
|
|
ddstruct.int1 = _core_current.linwidth * f / 100.;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
if (surfp->hphardwr) {
|
|
if (_core_cpchang) { /* cp changed since last sent to DD */
|
|
ddstruct.opcode = MOVE;
|
|
ddstruct.int1 = ip1.x;
|
|
ddstruct.int2 = ip1.y;
|
|
ddstruct.int3 = ip1.z;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
if (_core_openseg->segats.visbilty) {
|
|
ddstruct.opcode = LINE;
|
|
ddstruct.int1 = ip2.x;
|
|
ddstruct.int2 = ip2.y;
|
|
ddstruct.int3 = ip2.z;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
}
|
|
else {
|
|
/* before sending to the device, use imxform on primitives */
|
|
if(! _core_openseg->idenflag) {
|
|
ip3 = ip1;
|
|
ip4 = ip2;
|
|
_core_imxfrm3( _core_openseg, &ip3, &ip1);
|
|
_core_imxfrm3( _core_openseg, &ip4, &ip2);
|
|
}
|
|
if(_core_outpclip) {
|
|
if (!_core_oclpvec2(&ip1,&ip2,&_core_vwstate.viewport)) {
|
|
earlyexit = TRUE; /* if not visible */
|
|
break;
|
|
}
|
|
}
|
|
if (_core_cpchang) { /* cp changed since last sent to DD */
|
|
ddstruct.opcode = MOVE;
|
|
ddstruct.int1 = ip1.x;
|
|
ddstruct.int2 = ip1.y;
|
|
ddstruct.int3 = ip1.z;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
if (_core_openseg->segats.visbilty) {
|
|
ddstruct.opcode = LINE;
|
|
ddstruct.int1 = ip2.x;
|
|
ddstruct.int2 = ip2.y;
|
|
ddstruct.int3 = ip2.z;
|
|
(*surfdd)(&ddstruct);
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
if (!earlyexit)
|
|
{
|
|
_core_linecflag = FALSE;
|
|
_core_ropflag = FALSE;
|
|
_core_lsflag = FALSE;
|
|
_core_lwflag = FALSE;
|
|
_core_linatt = FALSE;
|
|
}
|
|
|
|
if(pt2winclip || earlyexit) /* if clipped, we need to change cp in PDF */
|
|
_core_cpchang = TRUE;
|
|
else
|
|
_core_cpchang = FALSE;
|
|
if (!_core_xformvs)
|
|
_core_ndccp = dummy;
|
|
if (--_core_critflag == 0 && _core_updatewin && _core_sighandle)
|
|
(*_core_sighandle)();
|
|
return(0);
|
|
}
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* FUNCTION: line_rel_3 */
|
|
/* */
|
|
/* PURPOSE: DESCRIBE A LINE OF AN OBJECT IN WORLD COORDINATES.THIS LINE */
|
|
/* RUNS FROM CP TO THE POSITION SPECIFIED. CP IS UPDATED. */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
line_rel_3(dx,dy,dz) float dx,dy,dz;
|
|
{
|
|
if (! _core_osexists) {
|
|
_core_errhand("line_rel_3",21);
|
|
return(1);
|
|
}
|
|
return( line_abs_3(_core_cp.x + dx, _core_cp.y + dy, _core_cp.z + dz) );
|
|
}
|
|
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* FUNCTION: move_abs_3 */
|
|
/* */
|
|
/* PURPOSE: THE CP IS SET TO (x,y,z) WHERE (x,y,z) IS A POSITION */
|
|
/* IN THE WORLD COORDINATE SYSTEM. */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
move_abs_3(x,y,z) float x,y,z;
|
|
{
|
|
pt_type point;
|
|
|
|
_core_cp.x = x;
|
|
_core_cp.y = y;
|
|
_core_cp.z = z;
|
|
if (!_core_xformvs)
|
|
{
|
|
_core_tranpt( &_core_cp.x, &point.x);
|
|
_core_pt3cnvrt( &point.x, &_core_ndccp.x);
|
|
}
|
|
_core_cpchang = TRUE;
|
|
return(0);
|
|
}
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* FUNCTION: move_rel_3 */
|
|
/* */
|
|
/* PURPOSE: THE CP IS SET TO (x,y,z) WHERE (x,y,z) IS A POSITION */
|
|
/* IN THE WORLD COORDINATE SYSTEM RELATIVE TO PREVIOUS (x,y,z).*/
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
move_rel_3(dx,dy,dz) float dx,dy,dz;
|
|
{
|
|
pt_type point;
|
|
float fdx, fdy, fdz;
|
|
|
|
fdx = dx; /* use fdx,fdy,fdy to convert dbl precision args to */
|
|
fdy = dy; /* single precision, so adds are done in single */
|
|
fdz = dz; /* (assuming compiled with -fsingle) */
|
|
|
|
_core_cp.x += fdx;
|
|
_core_cp.y += fdy;
|
|
_core_cp.z += fdz;
|
|
if (!_core_xformvs)
|
|
{
|
|
_core_tranpt( &_core_cp.x, &point.x);
|
|
_core_pt3cnvrt( &point.x, &_core_ndccp.x);
|
|
}
|
|
_core_cpchang = TRUE;
|
|
return(0);
|
|
}
|
|
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* FUNCTION: polyline_abs_3 */
|
|
/* */
|
|
/* PURPOSE: DESCRIBE A CONNECTED SEQUENCE OF LINES IN AN OBJECT IN */
|
|
/* WORLD COORDINATES. */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
polyline_abs_3(xcoord,ycoord,zcoord,n) float xcoord[],ycoord[],zcoord[]; int n;
|
|
{
|
|
char *funcname;
|
|
register int index;
|
|
|
|
funcname = "polyline_abs_3";
|
|
if (! _core_osexists) {
|
|
_core_errhand(funcname,21);
|
|
return(1);
|
|
}
|
|
if (n <= 0) {
|
|
_core_errhand(funcname,22);
|
|
return(2);
|
|
}
|
|
|
|
(void)move_abs_3(xcoord[0],ycoord[0],zcoord[0]);
|
|
for (index = 1; index < n; index++) {
|
|
(void) line_abs_3(xcoord[index], ycoord[index],zcoord[index]);
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* FUNCTION: polyline_rel_3 */
|
|
/* */
|
|
/* PURPOSE: DESCRIBE A CONNECTED SEQUENCE OF LINES IN AN OBJECT IN */
|
|
/* WORLD COORDINATES. */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
polyline_rel_3(xcoord,ycoord,zcoord,n) float xcoord[],ycoord[],zcoord[]; int n;
|
|
{
|
|
char *funcname;
|
|
register int index;
|
|
|
|
funcname = "polyline_rel_3";
|
|
if (! _core_osexists) {
|
|
_core_errhand(funcname,21);
|
|
return(1);
|
|
}
|
|
if (n <= 0) {
|
|
_core_errhand(funcname,22);
|
|
return(2);
|
|
}
|
|
for (index = 0; index < n; index++) {
|
|
(void)line_rel_3(xcoord[index],ycoord[index],zcoord[index]);
|
|
}
|
|
return(0);
|
|
}
|
|
|