207 plsc->chrht = scale * plsc->chrdef;
209 if ( plsc->level > 0 )
225 plsc->minht = scale * plsc->mindef;
240 plsc->majht = scale * plsc->majdef;
255 plsc->symht = scale * plsc->symdef;
257 if ( plsc->level > 0 )
270 if ( plsc->level < 1 )
272 plabort(
"pllsty: Please call plinit first" );
275 if ( lin < 1 || lin > 8 )
277 plabort(
"pllsty: Invalid line style" );
281 plsc->line_style = lin;
283 &
line[lin - 1].mark[0], &
line[lin - 1].space[0] );
297 if ( plsc->level < 1 )
299 plabort(
"plpat: Please call plinit first" );
302 if ( nlin < 1 || nlin > 2 )
304 plabort(
"plpat: Only 1 or 2 line styles allowed" );
307 for ( i = 0; i < nlin; i++ )
311 plabort(
"plpat: Line spacing must be greater than 0" );
316 spat( inc, del, nlin );
329 if ( plsc->level < 1 )
331 plabort(
"plpsty: Please call plinit first" );
336 plabort(
"plpsty: Invalid pattern" );
339 if ( patt != plsc->patt )
349 spat( NULL, NULL, 0 );
364 for ( i = 0; i < nlin; i++ )
366 plsc->inclin[i] = inc[i];
367 plsc->delta[i] = del[i];
370 if ( plsc->level > 0 )
void c_plpat(PLINT nlin, PLINT_VECTOR inc, PLINT_VECTOR del)
void c_plsmaj(PLFLT def, PLFLT scale)
void plabort(PLCHAR_VECTOR errormsg)
void c_plpsty(PLINT patt)
const PLINT * PLINT_VECTOR
void c_plschr(PLFLT def, PLFLT scale)
void c_plsmin(PLFLT def, PLFLT scale)
void c_plssym(PLFLT def, PLFLT scale)
static void spat(const PLINT inc[], const PLINT del[], PLINT nlin)