Lines Matching refs:form
41 ## Command line options of the form #rrggbb=i indicate that
105 my($form) = @_;
108 if ( $form == 6 ) {
112 } elsif ( $form == 3 ) {
118 } elsif ( $form == 5 ) {
123 } elsif ( $form == 2 ) {
127 } elsif ( $form == 4 ) {
139 } elsif ( $form == 1 ) {
157 die "Internal error: unknown format: $form\n";
213 $form = get_token();
214 die "$0: stdin is not a PNM file" if ( $form !~ /^P([1-6])$/ );
215 $form = $1+0;
219 if ( $form == 1 || $form == 4 ) {
232 if ( !scalar(@pnmrgb = getrgb($form)) );
