mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-19 09:28:10 +03:00
122 lines
4.1 KiB
Plaintext
122 lines
4.1 KiB
Plaintext
(system-include "math.h")
|
|
(system-include "SDL.h")
|
|
(local-include "../core/SDLHelper.h")
|
|
|
|
;; Compiler flags
|
|
(add-cflag "-I/usr/local/include/SDL2")
|
|
(add-cflag "-I/usr/include/SDL2")
|
|
(add-cflag "-D_THREAD_SAFE")
|
|
(add-lib "-L/usr/local/lib")
|
|
(add-lib "-lSDL2")
|
|
|
|
;; Setup and quit
|
|
(register SDL_Init (Fn [Int] ()))
|
|
(register SDL_Delay (Fn [Int] ()))
|
|
(register SDL_INIT_EVERYTHING Int)
|
|
(register SDL_Quit (Fn [] ()))
|
|
|
|
;; SDL_EventType
|
|
(register SDL_QUIT Int)
|
|
(register SDL_KEYDOWN Int)
|
|
(register SDL_UP Int)
|
|
(register SDL_MOUSEMOTION Int)
|
|
(register SDL_MOUSEBUTTONDOWN Int)
|
|
(register SDL_MOUSEBUTTONUP Int)
|
|
(register SDL_MOUSEWHEEL Int)
|
|
|
|
;; Structures
|
|
(register-type SDL_Rect)
|
|
(register-type SDL_Point)
|
|
(register-type SDL_Event)
|
|
(register-type SDL_Texture)
|
|
|
|
(register make-rect (Fn [Int Int Int Int] SDL_Rect)) ;; x y w h
|
|
(register make-point (Fn [Int Int] SDL_Point))
|
|
|
|
;; Rendering
|
|
(register SDL_RenderPresent (Fn [(Ptr SDL_Renderer)] ()))
|
|
(register SDL_RenderClear (Fn [(Ptr SDL_Renderer)] ()))
|
|
(register SDL_RenderCopy (Fn [(Ptr SDL_Renderer) (Ptr SDL_Texture) (Ptr SDL_Rect) (Ptr SDL_Rect)] ())) ;; src-rect & dest-rect
|
|
(register SDL_RenderCopyEx (Fn [(Ptr SDL_Renderer) (Ptr SDL_Texture) (Ptr SDL_Rect) (Ptr SDL_Rect)
|
|
Double (Ptr SDL_Point) SDL_RendererFlip] ())) ;; src-rect, dest-rect, angle, center, flip
|
|
(register SDL_SetRenderDrawColor (Fn [(Ptr SDL_Renderer) Int Int Int Int] ())) ;; rgba
|
|
(register SDL_RenderFillRect (Fn [(Ptr SDL_Renderer) (Ptr SDL_Rect)] ()))
|
|
(register SDL_RenderFillRects (Fn [(Ptr SDL_Renderer) (Ptr SDL_Rect) Int] ())) ;; rects, count
|
|
(register SDL_RenderDrawLine (Fn [(Ptr SDL_Renderer) Int Int Int Int] ())) ;; x1 y1 x2 y2
|
|
(register SDL_RenderDrawLines (Fn [(Ptr SDL_Renderer) (Ptr SDL_Point) Int] ())) ;; lines, count
|
|
(register SDL_DestroyTexture (Fn [(Ptr SDL_Texture)] ()))
|
|
(register SDL_SetRenderDrawBlendMode (Fn [(Ptr SDL_Renderer) SDL_BlendMode] ()))
|
|
(register SDL_BlitSurface (Fn [(Ptr SDL_Surface) (Ptr SDL_Rect) (Ptr SDL_Surface) (Ptr SDL_Rect)] ())) ;; src, srcrect, dst, dstrect
|
|
(register SDL_QueryTexture (Fn [(Ptr SDL_Texture) (Ptr Int) (Ptr Int) (Ptr Int) (Ptr Int)] ())) ;; ? ? w h
|
|
|
|
;; Blend modes
|
|
(register-type SDL_BlendMode)
|
|
(register SDL_BLENDMODE_NONE SDL_BlendMode)
|
|
(register SDL_BLENDMODE_BLEND SDL_BlendMode)
|
|
(register SDL_BLENDMODE_ADD SDL_BlendMode)
|
|
(register SDL_BLENDMODE_MOD SDL_BlendMode)
|
|
|
|
;; SDL_RendererFlip
|
|
(register-type SDL_RendererFlip)
|
|
(register SDL_FLIP_NONE SDL_RendererFlip)
|
|
(register SDL_FLIP_HORIZONTAL SDL_RendererFlip)
|
|
(register SDL_FLIP_VERTICAL SDL_RendererFlip)
|
|
|
|
;; Events
|
|
(register SDL_PollEvent (Fn [(Ptr SDL_Event)] Bool))
|
|
(register SDL_Event_init (Fn [] SDL_Event))
|
|
(register event-type (Fn [(Ref SDL_Event)] Int))
|
|
(register event-keycode (Fn [(Ref SDL_Event)] SDL_Keycode))
|
|
|
|
;; Keys
|
|
(register-type SDL_Keycode)
|
|
(register SDLK_RETURN SDL_Keycode)
|
|
(register SDLK_SPACE SDL_Keycode)
|
|
(register SDLK_ESCAPE SDL_Keycode)
|
|
(register SDLK_LEFT SDL_Keycode)
|
|
(register SDLK_RIGHT SDL_Keycode)
|
|
(register SDLK_UP SDL_Keycode)
|
|
(register SDLK_DOWN SDL_Keycode)
|
|
|
|
(defmodule Keycode
|
|
(register = (Fn [SDL_Keycode SDL_Keycode] Bool))
|
|
(register copy (Fn [(Ref SDL_Keycode)] SDL_Keycode))
|
|
(register str (Fn [SDL_Keycode] String))
|
|
|
|
(defn /= [x y]
|
|
(not (= x y)))
|
|
)
|
|
|
|
;; Mouse
|
|
(register SDL_GetMouseState (Fn [(Ptr Int) (Ptr Int)] Int))
|
|
(register SDL_BUTTON (Fn [Int] Int))
|
|
(register SDL_BUTTON_LEFT Int)
|
|
(register SDL_BUTTON_RIGHT Int)
|
|
|
|
(deftype MouseState [x Int
|
|
y Int
|
|
left Bool
|
|
right Bool])
|
|
|
|
(defn get-mouse-state []
|
|
(let [x 0
|
|
y 0
|
|
state (SDL_GetMouseState (address x) (address y))
|
|
l (/= 0 (Int.bit-and state (SDL_BUTTON SDL_BUTTON_LEFT)))
|
|
r (/= 0 (Int.bit-and state (SDL_BUTTON SDL_BUTTON_RIGHT)))]
|
|
(MouseState.init x y l r)))
|
|
|
|
;; Time
|
|
(register SDL_GetTicks (Fn [] Int))
|
|
|
|
;; App helper
|
|
(register-type App)
|
|
(register app-init (Fn [String Int Int] App))
|
|
(register app-window (Fn [App] (Ptr SDL_Window)))
|
|
(register app-renderer (Fn [App] (Ptr SDL_Renderer)))
|
|
(register app-stop (Fn [(Ref App)] ()))
|
|
|
|
(defn quit [app]
|
|
(do (app-stop app)
|
|
(System.exit 0)))
|