| … | |
… | |
| 330 | } elsif ($type eq "mark") { |
330 | } elsif ($type eq "mark") { |
| 331 | my $op = ({ |
331 | my $op = ({ |
| 332 | &MARK_GRAYED => 23, |
332 | &MARK_GRAYED => 23, |
| 333 | &MARK_SMALL_B => 22, |
333 | &MARK_SMALL_B => 22, |
| 334 | &MARK_SMALL_W => 22, |
334 | &MARK_SMALL_W => 22, |
| 335 | &MARK_CIRCLE => 21, |
|
|
| 336 | &MARK_SQUARE => 20, |
335 | &MARK_SQUARE => 21, |
| 337 | &MARK_TRIANGLE => 19, |
336 | &MARK_TRIANGLE => 20, |
| 338 | &MARK_LABEL => 18, |
337 | &MARK_LABEL => 19, |
|
|
338 | &MARK_CIRCLE => 15, |
| 339 | })->{$arg[1]}; |
339 | })->{$arg[1]}; |
| 340 | |
340 | |
| 341 | enc_U8 $op + ($arg[0] ? 0 : 128); |
341 | enc_U8 $op + ($arg[0] ? 0 : 128); |
| 342 | enc_U8 $arg[1] == MARK_SMALL_W if $op == 22; |
342 | enc_U8 $arg[1] == MARK_SMALL_W if $op == 22; |
| 343 | enc_U8 $arg[2]; |
343 | enc_U8 $arg[2]; |
