install this: https://github.com/parkr/ruby-build-github
And then install the ruby version 2.1.7 rbenv install 2.1.7-github
go in the folder of your website. Run:
rbenv local 2.1.7-github
This will set the ruby version of your project to 2.1.7.
def qsort(l) | |
return l if l.length <= 1 | |
pivot = l.sample | |
lft, rgt = l.partition {|e| e < pivot} | |
qsort(lft).concat(qsort(rgt)) | |
end |
func isImage(filename string) bool { | |
is_img, _ := regexp.MatchString("(?i)\\.(png|jpg|jpeg|gif)$", filename) | |
return is_img | |
} |
install this: https://github.com/parkr/ruby-build-github
And then install the ruby version 2.1.7 rbenv install 2.1.7-github
go in the folder of your website. Run:
rbenv local 2.1.7-github
This will set the ruby version of your project to 2.1.7.
(defn da-example-apply-recursively | |
[] | |
(let [hex (mg/apply-recursively (mg/reflect :e) 5 [1] 1) | |
seed (a/aabb [0 0 0] 0.95) | |
tree (mg/skew | |
:n | |
:e | |
:offset 0.3 | |
:out [hex]) | |
] |
(defn morphogen-mesh | |
[seed tree] | |
(-> seed | |
(mg/seed-box) | |
(mg/generate-mesh tree) | |
(g/center))) | |
(def strip-quad | |
"Arrangement of quads" | |
(let [quad (mg/apply-recursively (mg/reflect :e) 4 [1] 1) |
(defn star | |
[] | |
(let [side (mg/apply-recursively (mg/reflect :e) 13 [1] 1) | |
seed (mg/sphere-lattice-seg 6 0.355 0.0955 0.2) | |
skewed-side (mg/skew | |
:n | |
:e | |
:offset 0.3 | |
:out [side]) | |
tree (mg/scale-edge |
(defn punch | |
{:op :sd-inset, :args {:dir :w, :inset 0.999}, :out [{} {} {} {} nil]} | |
[dir w & [out]] | |
(mg/subdiv-inset :dir dir :inset w :out (or out {4 nil}))) | |
(defn petal | |
[scale offset punch-y] | |
(let [punch-it (mg/skew :e :e :offset offset | |
:out [(punch :y punch-y)]) | |
tree (mg/scale-edge :ef :y :scale scale |
(defn scale-side | |
[hex distorsion] | |
(mg/scale-edge :ef :y | |
:scale distorsion | |
:out [hex])) | |
(defn displace-ring | |
[& {:keys [offset scale] :or {offset 0.2 scale 1.0}}] | |
(let [displace-it (mg/split-displace :y :z :offset offset :out [nil {}]) | |
scale-it (mg/scale-edge :bc :z :scale scale :out [displace-it])] |
(defn leaf | |
[n-stripes width] | |
(let [ | |
end (mg/scale-edge :ab :x | |
:scale 0.02 | |
:out [(make-stripes n-stripes)]) | |
middle (mg/reflect :s :out[{} | |
(mg/scale-edge :bc :z | |
:len width | |
:out [(mg/extrude |
Tech Toolbox | |
http://www.gdcvault.com/play/1024145/Tech | |
Practical Procedural Generation for Everyone | |
http://www.gdcvault.com/play/1024213/Practical-Procedural-Generation-for | |
Building Worlds Using Math(s) | |
http://www.gdcvault.com/play/1024514/Building-Worlds-Using | |