| changeset 239 | 91b2ea70aff4 |
| parent 238 | d7b867f80284 |
| child 240 | 85ea0e6d423d |
| 238:d7b867f80284 | 239:91b2ea70aff4 |
|---|---|
53 sub point |
53 sub point |
54 { |
54 { |
55 ($t, $x, $y) = @_; |
55 ($t, $x, $y) = @_; |
56 $x+=0; |
56 $x+=0; |
57 $y+=0; # just in case |
57 $y+=0; # just in case |
58 printf("%c%c%c%c%c",$x>>8,$x&0xff,$y>>8,$y&0xff,($t=~m/M/)?(0x80|0x01):0x01); |
58 printf("%c%c%c%c%c",$x>>8,$x&0xff,$y>>8,$y&0xff,($t=~m/M/)?(0x80|0x01):0x00); |
59 return; |
59 return; |
60 } |
60 } |
61 }}} |
61 }}} |
62 {{{script pointdata > hwpointdata}}} |
62 {{{script pointdata > hwpointdata}}} |
63 |
63 |