136 PLFLT scale, size_chr, size_sym, size_maj, size_min, theta, rat;
140 if ( plsc->nsubx <= 0 )
142 if ( plsc->nsuby <= 0 )
157 ( ( plsc->phyxma - plsc->phyxmi ) / plsc->xpmm +
158 ( plsc->phyyma - plsc->phyymi ) / plsc->ypmm ) / 200.0;
163 theta = 0.5 *
M_PI * plsc->diorot;
164 rat = ( ( plsc->phyxma - plsc->phyxmi ) / plsc->xpmm ) /
165 ( ( plsc->phyyma - plsc->phyymi ) / plsc->ypmm );
166 rat =
MAX( rat, 1.0 / rat );
167 rat = fabs( cos( theta ) ) + rat * fabs( sin( theta ) );
171 if ( plsc->nsuby > 1 )
172 scale /= sqrt( (
double) plsc->nsuby );
179 plschr( size_chr * scale, 1.0 );
180 plssym( size_sym * scale, 1.0 );
181 plsmaj( size_maj * scale, 1.0 );
182 plsmin( size_min * scale, 1.0 );
PLINT plTranslateCursor(PLGraphicsIn *plg)
PLINT plGetCursor(PLGraphicsIn *plg)
void c_plcalc_world(PLFLT rx, PLFLT ry, PLFLT *wx, PLFLT *wy, PLINT *window)
void c_plgspa(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax)