diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-01-25 22:15:53 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-01-25 22:15:53 -0500 |
| commit | 2535e324770ea6d621aec4f9ef814c18aecce99b (patch) | |
| tree | 0b3200ba2520ff52f0cf7300d0bc7cf1a7f42a21 | |
| parent | d0305ed735f91995e6f78cb3cfbbb4092da86234 (diff) | |
render: shapes: Delete draw-rectangle-outline procedure.
* chickadee/render/shapes.scm (draw-rectangle-outline): Delete.
| -rw-r--r-- | chickadee/render/shapes.scm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/chickadee/render/shapes.scm b/chickadee/render/shapes.scm index 52e2613..0e9c0a1 100644 --- a/chickadee/render/shapes.scm +++ b/chickadee/render/shapes.scm @@ -31,8 +31,7 @@ #:use-module (chickadee color) #:use-module (chickadee render shader) #:use-module (chickadee render vertex-buffer) - #:export (draw-line - draw-rectangle-outline)) + #:export (draw-line)) (define draw-line (let* ((vertex-buffer @@ -194,12 +193,3 @@ void main (void) { ('round 3) ('triangle-out 4) ('triangle-in 5)))))))) - -;; TODO: Use an outline polygon instead of rendering a bunch of lines. -(define* (draw-rectangle-outline left bottom right top #:key - (thickness 1.0) - (color white)) - (draw-line left bottom right bottom #:thickness thickness #:color color) - (draw-line right bottom right top #:thickness thickness #:color color) - (draw-line right top left top #:thickness thickness #:color color) - (draw-line left top left bottom #:thickness thickness #:color color)) |