<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><br></div><div>Playing around with simple kaleidoscope like 2D patterns.</div><div><br></div>; I <3 perlin noise<div><div>
<span class="Apple-style-span" style="orphans: 2; text-align: -webkit-auto; text-indent: 0px; widows: 2; -webkit-text-decorations-in-effect: none; "><div><div>(clear)</div><div>(translate (vector -9.5 -8 0))</div><div>(opacity .2)</div><div>(hint-ignore-depth)</div><div><br></div><div>(define (ani)</div><div> (for* ([i (in-range 33)]</div><div> [j (in-range 20)])</div><div> (with-state</div><div> (translate (vector (* .6 i) (* .9 j) 0))</div><div> (rotate (vector 0 0 (+ 2 (* .9 i (time)))))</div><div> (scale (+ 3 (* 3 (sin(* .09 (time)))) (* .8 (atan(* .3 (time))))))</div><div> (colour (vector (noise 9 (+ (* .12 i) (* .1 (time))))</div><div> (noise .1 (+ (* .141 j) (* .08 (time))))</div><div> (noise .5 (+ (* .124 j) (* .09 (time))))))</div><div> (draw-plane)</div><div> )</div><div> )</div><div>)</div><div>(every-frame (ani))</div><div><br></div><br></div><div style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><br></div><div style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><br></div><div style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><br></div></span><br class="Apple-interchange-newline">
</div>
<br></div></body></html>