zacharycarter / voodoo Goto Github PK

View Code? Open in Web Editor NEW

38.0 3.0 3.0 30.01 MB

3D game programming and rapid prototyping library.

License: MIT License

Janet 1.22% GLSL 8.31% C 75.26% Shell 3.69% Python 0.49% JavaScript 3.93% CSS 0.49% HTML 6.59%

3d 3d-graphics c game game-development games janet janet-lang webgpu wgpu

voodoo's Introduction

voodoo

voodoo is a 3D game programming library written in C.

voodoo exposes an API that is intended to be invoked via scripts written in Janet.

voodoo is presently focused on creating games for the browser. Support for more platforms is planned.

voodoo is very much WIP.

Screenshot reflecting current state of renderer

Video demonstration

voodoo.mp4

Example Usage

(def actions {:up 0
              :down 1
              :left 2
              :right 3
              :num 4})

(def bindings @{(actions :up) [input/key/up input/gamepad/dpad/up]
                (actions :down) [input/key/down input/gamepad/dpad/down]
                (actions :left) [input/key/left input/gamepad/dpad/left]
                (actions :right) [input/key/right input/gamepad/dpad/right]})

(def state @{:camera nil
             :doll-asset: nil
             :player: nil})

(defn init []
  (set (state :doll-asset) (asset/load "doll" "/assets/dolls/ozz_skin.doll"))
  (set (state :camera) (cam/orbit @{:min-dist 1.0
                                  :max-dist 50.0
                                  :center @[0.0 0.0 0.0]
                                  :distance 5.0
                                  :latitude 45.0
                                  :longitude 45.0
                                  :nearz 0.01
                                  :farz 2000.0}))

  (v3d/cube @[0.0 5.0 0.0] @[1.0 1.0 1.0])
  (v3d/cube @[0.0 -0.9375 0.0] @[5.0 0.125 5.0])
  (set (state :player) (game/object @[0.0 0.0 0.0] @[1.0 1.0 1.0] @[0.0 0.0 0.0 0.0]))
  (game/object/add-component (state :player) component/doll (v3d/doll/create (state :doll-asset)))
  (loop [[action binding] :pairs bindings]
    (if (not= (get binding 0) input/invalid) (input/bind input/layer/user (get binding 0) action))
    (if (not= (get binding 1) input/invalid) (input/bind input/layer/user (get binding 1) action))))

(defn event [e]
  (cam/handle-event (state :camera) e))

(defn update-doll []
  (if (> (input/state (actions :up)) 0) (print "up!!!")
      (if (> (input/state (actions :down)) 0) (print "down!!!")))
  (if (> (input/state (actions :left)) 0) (print "left!!!")
      (if (> (input/state (actions :right)) 0) (print "right!!!"))))

(defn update []
  (update-doll)
  (cam/update (state :camera))
  (dbg/draw/camera (state :camera))
  (dbg/draw/grid 0)
  (v3d/draw (state :camera)))

(defn shutdown [])

(defn voodoo []
  @{:width 960
    :height 540
    :init init
    :event event
    :update update
    :shutdown shutdown})