Carp/examples/game.carp

(use IO)
(use System)
(use Int)
(use Double)
(use Array)

(load "core/sdl.carp")
(load "core/sdl_image.carp")
(use Keycode)

(def max 400)

(defn r []
  (the Int (random-between 0 max)))

(defn random-lines []
  (let [p1 (make-point (r) (r))
        p2 (make-point (r) (r))
        p3 (make-point (r) (r))]
    [p1 p2 p3 p1]))

(deftype Images
    [img1 (Ptr SDL_Texture)
     img2 (Ptr SDL_Texture)])

(defn dimensions [texture]
  (let [w 0
        h 0]
    (do
      (SDL_QueryTexture texture NULL NULL (address w) (address h))
      (make-rect 0 0 w h))))

(defn draw [rend images]
  (let [rect (make-rect 32 32 (- 512 64) (- 512 64))]
    (do
      (SDL_SetRenderDrawBlendMode rend SDL_BLENDMODE_ADD)
      (SDL_SetRenderDrawColor rend 0 0 0 255)
      (SDL_RenderClear rend)
      (SDL_SetRenderDrawColor rend 200 250 255 255)
      (SDL_RenderFillRect rend (address rect))
      (SDL_SetRenderDrawColor rend 100 50 255 155)
      (let [rects [(make-rect 48 48 16 16)
                   (make-rect 48 80 16 16)
                   (make-rect 48 112 16 16)
                   (make-rect 48 144 16 16)]
            n (count &rects)]
        (SDL_RenderFillRects rend (raw rects) n))
      (SDL_SetRenderDrawColor rend 255 50 100 255)
      (for [x 0 512 16]
        (do
          (SDL_RenderDrawLine rend x 0 512 512)
          (SDL_RenderDrawLine rend 512 (+ 256 (/ x 2)) 0 512)))
      (SDL_SetRenderDrawColor rend 0 0 0 255)
      (let [lines (random-lines)
            n (count &lines)]
        (SDL_RenderDrawLines rend (raw lines) n))
      (let [img (Images.img1 (the (Ref Images) images))]
        (SDL_RenderCopyEx rend
                          img
                          (address (dimensions img))
                          (address (make-rect 100 100 300 300))
                          (* 0.1 (from-int (SDL_GetTicks)))
                          (address (make-point 150 150))
                          SDL_FLIP_NONE))
      (SDL_RenderPresent rend)
      )))

(defn handle-events [app rend]
  (let [event (SDL_Event_init)]
    (while (SDL_PollEvent (address event))
      (let [et (event-type &event)]
        (cond (= et SDL_QUIT) (quit &app)
              (= et SDL_KEYDOWN) (let [key (event-keycode &event)]
                                   (cond
                                     (= key SDLK_ESCAPE) (quit &app)
                                     (println "Unrecognized key.")))              
              (println "Some other event happened..."))))))

(defn main []
  (let [app (app-init (String.copy "~ CARP ~") 512 512)
        rend (app-renderer app)
        img1 (IMG_LoadTexture rend (cstr "./img/square.png"))
        img2 (IMG_LoadTexture rend (cstr "./img/carp_logo_969_no_texture.png"))
        images (Images.init img1 img2)]
    (do
      (println (ref (Images.str &images)))
      (while true
        (do
          (handle-events app rend)
          (draw rend &images)
          (SDL_Delay 30))))))

(build)
(run)