| … | … | ||
|---|---|---|---|
| 3488 | glTranslate 0.375, 0.375; | 3488 | glTranslate 0.375, 0.375; |
| 3489 | 3489 | ||
| 3490 | my ($w, $h) = @$self{qw(w h)}; | 3490 | my ($w, $h) = @$self{qw(w h)}; |
| 3491 | 3491 | ||
| 3492 | glColor 1, 0.8, 0.4; | 3492 | glColor 1, 0.8, 0.4; |
| 3493 | glBegin GL_QUADS; | 3493 | glRect 0, 0, $w, $h; |
| 3494 | glVertex 0 , 0; | ||
| 3495 | glVertex 0 , $h; | ||
| 3496 | glVertex $w, $h; | ||
| 3497 | glVertex $w, 0; | ||
| 3498 | glEnd; | ||
| 3499 | 3494 | ||
| 3500 | glColor 0, 0, 0; | 3495 | glColor 0, 0, 0; |
| 3501 | glBegin GL_LINE_LOOP; | 3496 | glBegin GL_LINE_LOOP; |
| 3502 | glVertex 0 , 0; | 3497 | glVertex 0 , 0; |
| 3503 | glVertex 0 , $h; | 3498 | glVertex 0 , $h; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |