This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns panels | |
(:use quil.core)) | |
(def screen-w 800) | |
(def screen-h 800) | |
(defn- rand-color [] | |
(repeatedly 3 (fn [] (rand-int 255)))) | |
(defn- vary-color [base-color] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns shapes | |
(:use quil.core)) | |
(def screen-w 1600) | |
(def screen-h 800) | |
(defn- setup [] | |
(background 0) | |
(smooth) | |
(no-stroke) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns lots-o-dots | |
(:use quil.core)) | |
(def screen-w 1600) | |
(def screen-h 800) | |
(defn- setup [] | |
(background 0) | |
(smooth) | |
(no-stroke) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns my-first-glitch | |
(:use quil.core)) | |
(def screen-w 800) | |
(def screen-h 800) | |
(def t (atom 0)) | |
(defn- setup [] | |
(background 0) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns wobble | |
(:use quil.core)) | |
(def screen-w 800) | |
(def screen-h 800) | |
(def phase (atom 0)) | |
(defn setup [] | |
(background 0) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns pixercles | |
(:use quil.core)) | |
(def screen-w 2000) | |
(def screen-h 1000) | |
(defn- rand-color [] | |
(vec (repeatedly 3 (fn [] (rand-int 255))))) | |
(defn- vary-color [c] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns lines-of-circles | |
(:use quil.core)) | |
(def screen-w 800) | |
(def screen-h 1000) | |
(defn- line-of-circles [length stroke-c fill-c] | |
(apply stroke stroke-c) | |
(apply fill fill-c) | |
(let [init-r (+ 75 (rand-int 50)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns candy | |
(:use quil.core)) | |
(def screen-w 1000) | |
(def screen-h 1000) | |
(def existing-spheres (atom [])) | |
(defn- rand-color [] | |
(vec (repeatedly 3 (fn [] (rand-int 255))))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns candy-wallpaper | |
(:use quil.core)) | |
(def screen-w 1920) | |
(def screen-h 1080) | |
(def existing-spheres (atom [])) | |
(defn- rand-color [] | |
(vec (repeatedly 3 (fn [] (rand-int 255))))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns polar-vortex | |
(:use quil.core)) | |
(def screen-w 1920) | |
(def screen-h 1080) | |
(defn- setup [] | |
(background 0) | |
(smooth) | |
(ellipse-mode :center) |