From 6e8aced1af1fe2d4c0c9ea71314bcf6586316df9 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 18 Aug 2013 09:05:28 -0400 Subject: Add a few more wrappers for FTGL layout functions. --- 2d/wrappers/ftgl.scm | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) diff --git a/2d/wrappers/ftgl.scm b/2d/wrappers/ftgl.scm index 3108e8e..f44443b 100644 --- a/2d/wrappers/ftgl.scm +++ b/2d/wrappers/ftgl.scm @@ -104,6 +104,9 @@ (define-foreign %ftgl-create-simple-layout '* "ftglCreateSimpleLayout" '()) +(define-foreign %ftgl-destroy-layout + void "ftglDestroyLayout" '(*)) + (define-foreign %ftgl-set-layout-font void "ftglSetLayoutFont" '(* *)) @@ -129,10 +132,16 @@ ;; (define-foreign %ftgl-get-layout-line-spacing ;; float "ftglGetLayoutLineSpacing" '(*)) -(define (ftgl-create-simple-layout) +(define-foreign %ftgl-render-layout + void "ftglRenderLayout" (list '* '* int)) + +(define (ftgl-create-layout) (wrap-ftgl-simple-layout (%ftgl-create-simple-layout))) +(define (ftgl-destroy-layout layout) + (%ftgl-destroy-layout (unwrap-ftgl-simple-layout layout))) + (define (ftgl-set-layout-font layout font) (%ftgl-set-layout-font (unwrap-ftgl-simple-layout layout) (unwrap-ftgl-font font))) @@ -159,11 +168,18 @@ (%ftgl-set-layout-line-spacing (unwrap-ftgl-simple-layout layout) spacing)) -(export ftgl-create-simple-layout +(define (ftgl-render-layout layout text mode) + (%ftgl-render-layout (unwrap-ftgl-simple-layout layout) + (string->pointer text) + mode)) + +(export ftgl-create-layout + ftgl-destroy-layout ftgl-set-layout-font ftgl-get-layout-font ftgl-set-layout-line-length ftgl-get-layout-line-length ftgl-set-layout-alignment ftgl-get-layout-alignment - ftgl-set-layout-line-spacing) + ftgl-set-layout-line-spacing + ftgl-render-layout) -- cgit v1.2.3