208 plsc->chrht = scale * plsc->chrdef;
223 plsc->minht = scale * plsc->mindef;
238 plsc->majht = scale * plsc->majdef;
253 plsc->symht = scale * plsc->symdef;
265 if ( plsc->level < 1 )
267 plabort(
"pllsty: Please call plinit first" );
270 if ( lin < 1 || lin > 8 )
272 plabort(
"pllsty: Invalid line style" );
276 plsc->line_style = lin;
278 &
line[lin - 1].mark[0], &
line[lin - 1].space[0] );
292 if ( plsc->level < 1 )
294 plabort(
"plpat: Please call plinit first" );
297 if ( nlin < 1 || nlin > 2 )
299 plabort(
"plpat: Only 1 or 2 line styles allowed" );
302 for ( i = 0; i < nlin; i++ )
306 plabort(
"plpat: Line spacing must be greater than 0" );
310 spat( inc, del, nlin );
323 if ( plsc->level < 1 )
325 plabort(
"plpsty: Please call plinit first" );
330 plabort(
"plpsty: Invalid pattern" );
333 if ( patt != plsc->patt )
337 if ( plsc->level > 0 )
361 for ( i = 0; i < nlin; i++ )
363 plsc->inclin[i] = inc[i];
364 plsc->delta[i] = del[i];