mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
93 lines
2.8 KiB
Plaintext
93 lines
2.8 KiB
Plaintext
(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 (fromInt (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)]
|
|
(while true
|
|
(do
|
|
(handle-events app rend)
|
|
(draw rend &images)
|
|
(SDL_Delay 30)))))
|
|
|
|
(build)
|
|
(run)
|