… | |
… | |
1318 | $value = int +($value - $lo) * $w / ($hi - $lo); |
1318 | $value = int +($value - $lo) * $w / ($hi - $lo); |
1319 | |
1319 | |
1320 | $w -= $page; |
1320 | $w -= $page; |
1321 | $page &= ~1; |
1321 | $page &= ~1; |
1322 | glTranslate $page * 0.5, 0, 0; |
1322 | glTranslate $page * 0.5, 0, 0; |
|
|
1323 | $page ||= 2; |
1323 | |
1324 | |
1324 | glColor @$fg; |
1325 | glColor @$fg; |
1325 | glBegin GL_LINES; |
1326 | glBegin GL_LINES; |
1326 | glVertex 0, 0; glVertex 0, $h; |
1327 | glVertex 0, 0; glVertex 0, $h; |
1327 | glVertex $w - 1, 0; glVertex $w - 1, $h; |
1328 | glVertex $w - 1, 0; glVertex $w - 1, $h; |