render: shapes: Delete draw-rectangle-outline procedure.
authorDavid Thompson <dthompson2@worcester.edu>
Thu, 26 Jan 2017 03:15:53 +0000 (22:15 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Thu, 26 Jan 2017 03:15:53 +0000 (22:15 -0500)
* chickadee/render/shapes.scm (draw-rectangle-outline): Delete.

chickadee/render/shapes.scm

index 52e2613..0e9c0a1 100644 (file)
@@ -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))