rm-hull

(ns corewar.gui
  (:require
    [clojure.string :as str]
    [jayq.core :refer [show]]
    [enchilada :refer [canvas ctx canvas-size]]
    [corewar.memory :as mem]
    [corewar.assembler :as asm]
    [corewar.instruction-set :as instr]
    [corewar.virtual-machine :as vm]
    [corewar.redcode :as red]

rm-hull

(ns enchilada.rotating-spiral
  (:require
    [jayq.core :refer [show]]
    [enchilada :refer [ctx canvas]]
    [big-bang.core :refer [big-bang]]
    [monet.canvas :refer [fill-style fill ellipse rotate translate save restore fill-rect]]))

(def initial-state {
  :angle 0
  :radius 600

rm-hull

The introduction to Reactive Programming you've been missing

(by @andrestaltz)

So you're curious in learning this new thing called (Functional) Reactive Programming (FRP).

Learning it is hard, even harder by the lack of good material. When I started, I tried looking for tutorials. I found only a handful of practical guides, but they just scratched the surface and never tackled the challenge of building the whole architecture around it. Library documentations often don't help when you're trying to understand some function. I mean, honestly, look at this:

Rx.Observable.prototype.flatMapLatest(selector, [thisArg])

Projects each element of an observable sequence into a new sequence of observable sequences by incorporating the element's index and then transforms an observable sequence of observable sequences into an observable sequence producing values only from the most recent observable sequence.

rm-hull

• Move the mouse horizontally to change threshold point
• Click the mouse to alter the resolution
• Press the 'C' key to cycle between [10-Print, Greyscale, Inverse, Solarize]
• Refresh the page for a different image (chosen at random)

rm-hull

$\mathbb{R}^3$ Parametric equations

$x = {\sqrt 2 \cos^2 v \cos (2u) + \cos u \sin (2v) \over 2 - \alpha \sqrt 2 \sin (3u) \sin (2v)}$

$y = {\sqrt 2 \cos^2 v \sin (2u) - \sin u \sin (2v) \over 2 - \alpha \sqrt 2 \sin (3u) \sin (2v)}$

$z = {3 \cos^2 \over 2 - \alpha \sqrt 2 \sin (3u) \sin (2v)}$

for $u \in [-\pi /2, \pi/2]$ and $v \in [0, \pi]$

rm-hull

Different presets:

• Cheetah
• Colony
• Fine
• Fingerprint (default)
• Maze
• Pocked

rm-hull

(ns enchilada.slinky
  (:require
    [jayq.core :refer [show css]]
    [enchilada :refer [ctx canvas canvas-size]]
    [big-bang.core :refer [big-bang]]
    [big-bang.events.browser :refer [offset-coords]]
    [monet.canvas :refer [stroke-style stroke fill-style fill fill-rect arc begin-path close-path]]))

(def screen-area
  (let [[w h] (canvas-size)]

rm-hull

(ns enchilada.color-vortex
  (:require
    [jayq.core :refer [show css]]
    [enchilada :refer [ctx canvas canvas-size]]
    [inkspot.color :refer [coerce red green blue]]
    [inkspot.converter :refer [hsv->rgb]]
    [big-bang.core :refer [big-bang]]
    [big-bang.events.browser :refer [offset-coords]]
    [monet.canvas :refer [stroke-style stroke fill-style fill fill-rect
                          ellipse save restore translate]]))

rm-hull

(ns enchilada.aspirational-vanity-product
  (:require
    [enchilada :refer [ctx canvas]]
    [big-bang.core :refer [big-bang]]
    [jayq.core :refer [show attr css]]
    [monet.canvas :refer [begin-path move-to line-to clear-rect
                          stroke stroke-style stroke-width stroke-cap
                          save restore translate rotate]]))
 
(def two-pi (* 2 Math/PI))

rm-hull

(ns enchilada.wireframe-extrusion
  (:require
    [enchilada :refer [canvas ctx value-of canvas-size]]
    [wireframes.renderer.canvas :refer [draw-solid ->canvas]]
    [wireframes.renderer.color :refer [wireframe solid]]
    [wireframes.transform :refer [point combine rotate scale translate degrees->radians]]
    [wireframes.shapes.primitives :refer [extrude make-line make-point transform-shape center-at-origin]]
    [jayq.core :refer [show]]
    [inkspot.color :refer [coerce]]
    [monet.canvas :refer [get-context fill-rect fill-style]]