egbulmer

// player.rs

use gd;
use gd::{ GodotString, Vector2 };
use gd::init::{ Property, PropertyHint, PropertyUsage };

const DEFAULT_SPEED: f64 = 400.0;

godot_class! {
    class Player: gd::Area2D {

egbulmer

I thought this might be useful for people running Elementary OS that want to see Godot in the application launcher or in the dock.

1. Save godot.desktop to ~/.local/share/applications.
2. Edit the Exec entry to point to your local program.
3. Download and extract icons zipfile:

unzip -d ~/.local/share icons.zip

egbulmer

(load-shared-object "./libsbv.so")

(define-ftype color
  (struct
    [r float]
    [g float]
    [b float]
    [a float]))

(define make-rgba

egbulmer

; This a hypothetical example of a Render call for a ClojureScript wrapper of 
; the Three.JS rendering library.

; Replica of the scene in the introductory Three.JS tutorial:
; http://threejs.org/docs/index.html#Manual/Introduction/Creating_a_scene

(render-scene
  [:mesh {:geometry [:box 1 1 1]
          :material [:mesh-basic {:color 0x00ff00}]])
        

egbulmer

(defn lprocess
  "Process all locations that match the predicate function with the supplied
mapping function. Locations that do not match are unchanged."
  [pred func ent]
  (->>
   (iterate (fn [l]
              (if (pred l)
                (zip/next (func l))
                (zip/next l))) (zip/vector-zip ent))
   (take-while (complement zip/end?))

egbulmer

(defn foo [] (print "foo!"))

(defn bar [] (print "bar!"))

(defn print-foo [fb]
  (apply (case fb
            :foo #'foo
            :bar #'bar) []))

; Will throw this error when defined:

egbulmer

(ns sprite-style.entities
  (:require
   [sprite-style.math :as math]
   [sprite-style.protocols :refer [Entity Renderable]]
   [sprite-style.pixi :as pixi]
   [sprite-style.vector :as vec :refer [v-]]))

(defn load-anim [name angle frames]
  [angle (pixi/load-clip (str name "-" angle) ".png" frames)])