From 2535e324770ea6d621aec4f9ef814c18aecce99b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 25 Jan 2017 22:15:53 -0500 Subject: render: shapes: Delete draw-rectangle-outline procedure. * chickadee/render/shapes.scm (draw-rectangle-outline): Delete. --- chickadee/render/shapes.scm | 12 +----------- 1 file changed, 1 insertion(+), 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)) -- cgit v1.2.3