| … | |
… | |
| 52 | |
52 | |
| 53 | our $VERSION = '1.0'; |
53 | our $VERSION = '1.0'; |
| 54 | |
54 | |
| 55 | our @EXPORT = qw( |
55 | our @EXPORT = qw( |
| 56 | MARK_TRIANGLE MARK_SQUARE MARK_CIRCLE MARK_SMALL_B MARK_SMALL_W MARK_B |
56 | MARK_TRIANGLE MARK_SQUARE MARK_CIRCLE MARK_SMALL_B MARK_SMALL_W MARK_B |
| 57 | MARK_W MARK_GRAYED MARK_MOVE MARK_LABEL MARK_HOSHI MARK_KO |
57 | MARK_W MARK_GRAYED MARK_MOVE MARK_LABEL MARK_HOSHI MARK_KO MARK_CROSS |
| 58 | MARK_REDRAW |
58 | MARK_REDRAW |
| 59 | COLOUR_BLACK COLOUR_WHITE |
59 | COLOUR_BLACK COLOUR_WHITE |
| 60 | MOVE_HANDICAP MOVE_PASS |
60 | MOVE_HANDICAP MOVE_PASS |
| 61 | ); |
61 | ); |
| 62 | |
62 | |
| … | |
… | |
| 72 | sub MARK_GRAYED (){ 0x0080 } # in conjunction with MARK_[BW], grays the stone |
72 | sub MARK_GRAYED (){ 0x0080 } # in conjunction with MARK_[BW], grays the stone |
| 73 | sub MARK_LABEL (){ 0x0100 } |
73 | sub MARK_LABEL (){ 0x0100 } |
| 74 | sub MARK_HOSHI (){ 0x0200 } # this is a hoshi point (not used much) |
74 | sub MARK_HOSHI (){ 0x0200 } # this is a hoshi point (not used much) |
| 75 | sub MARK_MOVE (){ 0x0400 } # this is a regular move |
75 | sub MARK_MOVE (){ 0x0400 } # this is a regular move |
| 76 | sub MARK_KO (){ 0x0800 } # this is a ko position |
76 | sub MARK_KO (){ 0x0800 } # this is a ko position |
| 77 | sub MARK_CIRCLE (){ 0x1000 } |
77 | sub MARK_CROSS (){ 0x1000 } |
| 78 | sub MARK_REDRAW (){ 0x8000 } |
78 | sub MARK_REDRAW (){ 0x8000 } |
| 79 | |
79 | |
| 80 | sub COLOUR_BLACK (){ 0 } |
80 | sub COLOUR_BLACK (){ 0 } |
| 81 | sub COLOUR_WHITE (){ 1 } |
81 | sub COLOUR_WHITE (){ 1 } |
| 82 | |
82 | |
