;;;
;;; sdl-gfx-lib.stub - glue functions for SDL_gfx
;;;
;;;  Copyright(C) 2003 by Michael Vess (mvess@michaelvess.com)
;;;
;;;  Permission to use, copy, modify, distribute this software and
;;;  accompanying documentation for any purpose is hereby granted,
;;;  provided that existing copyright notices are retained in all
;;;  copies and that this notice is included verbatim in all
;;;  distributions.
;;;  This software is provided as is, without express or implied
;;;  warranty.  In no circumstances the author(s) shall be liable
;;;  for any damages arising out of the use of this software.
;;;
;;;  $Id: sdl-gfx-lib.stub,v 1.2 2003/02/03 09:31:14 mikiso Exp $
;;;

"
#include \"gauche-sdl-gfx.h\"
"

;;=============================================================
;; Miscellaneous
;;

(define-type <u16vector> "ScmU16Vector*" "u16vector"
  "SCM_U16VECTORP" "SCM_U16VECTOR")


;;=============================================================
;; Surface
;;

(define-type <sdl-surface> "SDL_Surface*" #f
  "SCM_SDL_SURFACE_P" "SCM_SDL_SURFACE")

(define-type <sdl-surface>-or-null "SDL_Surface*" #f
  "SCM_SDL_SURFACE_OR_NULL_P" "SCM_SDL_SURFACE_OR_NULL")

(define-cproc sdl-surface? (obj)
  (return <boolean> "SCM_SDL_SURFACE_P"))


;;=============================================================
;; Fpsmanagers
;;

(define-type <sdl-fpsmanager> "SDL_FPSmanager*" #f
  "SCM_SDL_FPSMANAGER_P" "SCM_SDL_FPSMANAGER")

(define-type <sdl-fpsmanager>-or-null "SDL_FPSmanager*" #f
  "SCM_SDL_FPSMANAGER_OR_NULL_P" "SCM_SDL_FPSMANAGER_OR_NULL")

(define-cproc sdl-fpsmanager? (obj)
  (return <boolean> "SCM_SDL_FPSMANAGER_P"))


;;=============================================================
;; Functions
;;

(define-cproc sdl-init-framerate ()
  "ScmSdlFPSmanager *f = SCM_NEW(ScmSdlFPSmanager);
   SCM_SET_CLASS(f, SCM_CLASS_SDL_FPSMANAGER);

   SDL_initFramerate(SCM_SDL_FPSMANAGER(f));

   SCM_RETURN(SCM_OBJ(f));")

(define-cproc sdl-set-framerate (manager::<sdl-fpsmanager> rate::<int>)
  "int result = SDL_setFramerate(manager, rate);

   if (result < 0) SCM_RETURN(SCM_UNDEFINED);

   SCM_RETURN(SCM_MAKE_INT(result));")

(define-cproc sdl-get-framerate (manager::<sdl-fpsmanager>)
  "SCM_RETURN(SCM_MAKE_INT(SDL_getFramerate(manager)));")

(define-cproc sdl-fpsmanager-delay (manager::<sdl-fpsmanager>)
  (return <void> "SDL_framerateDelay"))

(define-cproc pixel-color (dst::<sdl-surface> x::<int> y::<int> color::<int>)
  (return <int> "pixelColor"))

(define-cproc pixel-rgba (dst::<sdl-surface> x::<int> y::<int> r::<int>
                          g::<int> b::<int> a::<int>)
  (return <int> "pixelRGBA"))

(define-cproc hline-color (dst::<sdl-surface> x1::<int> x2::<int> y::<int>
                           color::<int>)
  (return <int> "hlineColor"))

(define-cproc hline-rgba (dst::<sdl-surface> x1::<int> x2::<int> y::<int>
                          r::<int> g::<int> b::<int> a::<int>)
  (return <int> "hlineRGBA"))

(define-cproc vline-color (dst::<sdl-surface> x::<int> y1::<int> y2::<int>
                           color::<int>)
  (return <int> "vlineColor"))

(define-cproc vline-rgba (dst::<sdl-surface> x::<int> y1::<int> y2::<int>
                          r::<int> g::<int> b::<int> a::<int>)
  (return <int> "vlineRGBA"))

(define-cproc rectangle-color (dst::<sdl-surface> x1::<int> y1::<int>
                               x2::<int> y2::<int> color::<int>)
  (return <int> "rectangleColor"))

(define-cproc rectangle-rgba (dst::<sdl-surface> x1::<int> y1::<int> x2::<int>
                              y2::<int> r::<int> g::<int> b::<int> a::<int>)
  (return <int> "rectangleRGBA"))

(define-cproc box-color (dst::<sdl-surface> x1::<int> y1::<int> x2::<int>
                         y2::<int> color::<int>)
  (return <int> "boxColor"))

(define-cproc box-rgba (dst::<sdl-surface> x1::<int> y1::<int> x2::<int>
                        y2::<int> r::<int> g::<int> b::<int> a::<int>)
  (return <int> "boxRGBA"))

(define-cproc line-color (dst::<sdl-surface> x1::<int> y1::<int> x2::<int>
                          y2::<int> color::<int>)
  (return <int> "lineColor"))

(define-cproc line-rgba (dst::<sdl-surface> x1::<int> y1::<int> x2::<int>
                         y2::<int> r::<int> g::<int> b::<int> a::<int>)
  (return <int> "lineRGBA"))

(define-cproc aaline-color (dst::<sdl-surface> x1::<int> y1::<int> x2::<int>
                            y2::<int> color::<int>)
  (return <int> "aalineColor"))

(define-cproc aaline-rgba (dst::<sdl-surface> x1::<int> y1::<int> x2::<int>
                           y2::<int> r::<int> g::<int> b::<int> a::<int>)
  (return <int> "aalineRGBA"))

(define-cproc circle-color (dst::<sdl-surface> x::<int> y::<int> r::<int>
                            color::<int>)
  (return <int> "circleColor"))

(define-cproc circle-rgba (dst::<sdl-surface> x::<int> y::<int> rad::<int>
                           r::<int> g::<int> b::<int> a::<int>)
  (return <int> "circleRGBA"))

(define-cproc aacircle-color (dst::<sdl-surface> x::<int> y::<int> r::<int>
                              color::<int>)
  (return <int> "aacircleColor"))

(define-cproc aacircle-rgba (dst::<sdl-surface> x::<int> y::<int> rad::<int>
                             r::<int> g::<int> b::<int> a::<int>)
  (return <int> "aacircleRGBA"))

(define-cproc filled-circle-color (dst::<sdl-surface> x::<int> y::<int>
                                   r::<int> color::<int>)
  (return <int> "filledCircleColor"))

(define-cproc filled-circle-rgba (dst::<sdl-surface> x::<int> y::<int>
                                  rad::<int> r::<int> g::<int> b::<int>
                                  a::<int>)
  (return <int> "filledCircleRGBA"))

(define-cproc ellipse-color (dst::<sdl-surface> x::<int> y::<int> rx::<int>
                             ry::<int> color::<int>)
  (return <int> "ellipseColor"))

(define-cproc ellipse-rgba (dst::<sdl-surface> x::<int> y::<int> rx::<int>
                            ry::<int> r::<int> g::<int> b::<int> a::<int>)
  (return <int> "ellipseRGBA"))

(define-cproc aaellipse-color (dst::<sdl-surface> x::<int> y::<int> rx::<int>
                               ry::<int> color::<int>)
  (return <int> "aaellipseColor"))

(define-cproc aaellipse-rgba (dst::<sdl-surface> x::<int> y::<int> rx::<int>
                              ry::<int> r::<int> g::<int> b::<int> a::<int>)
  (return <int> "aaellipseRGBA"))

(define-cproc filled-ellipse-color (dst::<sdl-surface> x::<int> y::<int>
                                    rx::<int> ry::<int> color::<int>)
  (return <int> "filledEllipseColor"))

(define-cproc filled-ellipse-rgba (dst::<sdl-surface> x::<int> y::<int>
                                   rx::<int> ry::<int> r::<int> g::<int>
                                   b::<int> a::<int>)
  (return <int> "filledEllipseRGBA"))

(define-cproc filled-pie-color (dst::<sdl-surface> x::<int> y::<int>
                                rad::<int> start::<int> end::<int>
                                color::<int>)
  (return <int> "filledPieColor"))

(define-cproc filled-pie-rgba (dst::<sdl-surface> x::<int> y::<int> rad::<int>
                               start::<int> end::<int> r::<int> g::<int>
                               b::<int> a::<int>)
  (return <int> "filledPieRGBA"))

(define-cproc polygon-color (dst::<sdl-surface> vx::<u16vector>
                             vy::<u16vector> n::<int> color::<int>)
  "SCM_RETURN(SCM_MAKE_INT(polygonColor(dst, SCM_U16VECTOR_ELEMENTS(vx),
                                        SCM_U16VECTOR_ELEMENTS(vy), n,
                                        color)));")

(define-cproc polygon-rgba (dst::<sdl-surface> vx::<u16vector> vy::<u16vector>
                            n::<int> r::<int> g::<int> b::<int> a::<int>)
  "SCM_RETURN(SCM_MAKE_INT(polygonRGBA(dst, SCM_U16VECTOR_ELEMENTS(vx),
                                       SCM_U16VECTOR_ELEMENTS(vy), n, r, g, b,
                                       a)));")

(define-cproc aapolygon-color (dst::<sdl-surface> vx::<u16vector>
                               vy::<u16vector> n::<int> color::<int>)
  "SCM_RETURN(SCM_MAKE_INT(aapolygonColor(dst, SCM_U16VECTOR_ELEMENTS(vx),
                                          SCM_U16VECTOR_ELEMENTS(vy), n,
                                          color)));")

(define-cproc aapolygon-rgba (dst::<sdl-surface> vx::<u16vector>
                              vy::<u16vector> n::<int> r::<int> g::<int>
                              b::<int> a::<int>)
  "SCM_RETURN(SCM_MAKE_INT(aapolygonRGBA(dst, SCM_U16VECTOR_ELEMENTS(vx),
                                         SCM_U16VECTOR_ELEMENTS(vy), n, r, g,
                                         b, a)));")

(define-cproc filled-polygon-color (dst::<sdl-surface> vx::<u16vector>
                                    vy::<u16vector> n::<int> color::<int>)
  "SCM_RETURN(SCM_MAKE_INT(filledPolygonColor(dst, SCM_U16VECTOR_ELEMENTS(vx),
                                              SCM_U16VECTOR_ELEMENTS(vy), n,
                                              color)));")

(define-cproc filled-polygon-rgba (dst::<sdl-surface> vx::<u16vector>
                                   vy::<u16vector> n::<int> r::<int> g::<int>
                                   b::<int> a::<int>)
  "SCM_RETURN(SCM_MAKE_INT(filledPolygonRGBA(dst, SCM_U16VECTOR_ELEMENTS(vx),
                                             SCM_U16VECTOR_ELEMENTS(vy), n, r,
                                             g, b, a)));")

(define-cproc character-color (dst::<sdl-surface> x::<int> y::<int> c::<char> color::<int>)
  "SCM_RETURN(SCM_MAKE_INT(characterColor(dst, x, y, SCM_CHAR_VALUE(c), color)));")

(define-cproc character-rgba (dst::<sdl-surface> x::<int> y::<int> c::<char> r::<int> g::<int> b::<int> a::<int>)
  "SCM_RETURN(SCM_MAKE_INT(characterRGBA(dst, x, y, SCM_CHAR_VALUE(c), r, g, b, a)));")

(define-cproc string-color (dst::<sdl-surface> x::<int> y::<int> c::<string> color::<int>)
  "SCM_RETURN(SCM_MAKE_INT(stringColor(dst, x, y, Scm_GetStringConst(c), color)));")

(define-cproc string-rgba (dst::<sdl-surface> x::<int> y::<int> c::<string> r::<int> g::<int> b::<int> a::<int>)
  "SCM_RETURN(SCM_MAKE_INT(stringRGBA(dst, x, y, Scm_GetStringConst(c), r, g, b, a)));")


;; Local variables:
;; mode: scheme
;; end: