diff options
| author | David Thompson <dthompson@member.fsf.org> | 2014-03-31 16:48:08 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2014-03-31 16:48:08 -0400 |
| commit | ba42e06196fb580144189447ada7b4a31252dca8 (patch) | |
| tree | e934ec05faa48c8fadfbbddb904dd3ee3d477933 /2d/font.scm | |
| parent | 686d5fdf3d9ab2763839e47a1fec5aa7e70170f6 (diff) | |
Add more texture anchor types.
* 2d/texture.scm (anchor-texture): Add top-right, bottom-left,
bottom-right, top-center, and bottom-center anchor types.
* 2d/font.scm (make-label): Don't call anchor-texture when there is no
texture.
Diffstat (limited to '2d/font.scm')
| -rw-r--r-- | 2d/font.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/2d/font.scm b/2d/font.scm index a9e178f..0917e66 100644 --- a/2d/font.scm +++ b/2d/font.scm @@ -143,7 +143,7 @@ the given position. Optional arguments are COLOR with a default of white and ANCHOR with a default of 'top-left." (let* ((texture (render-text font text)) (vertices (and texture (make-label-vertices texture))) - (anchor (anchor-texture texture anchor))) + (anchor (if texture (anchor-texture texture anchor) null-vector2))) (%make-label font text position anchor color texture vertices))) (define (draw-label label) |