mgold

import Graphics.Collage exposing (..)
import Color exposing (rgb)
import Window
import Time

obj_resolution = 360
waves_amount=6
wave_height=0.1
sine_pct=0.5 -- setting in percantage how big is the part
smoothing_amount=0.14

mgold

This block is an animation of forming the 2-adic numbers in a fractal-like process. Starting with zero and one, we alternate two steps. First, we visually scale down the existing plot, which doesn't actually change anything. Then, we subdivide each number. The left half stays the same, and to the right half we add an increasing power of two, one more than the previously largest number in the list.

The 2-adic distance metric, which is shift invariant, considers numbers to be closer if they were formed by a more recent subdivision, which is shown visually as similar colors. Analytically, two numbers are close if their difference is divisible by a high power of two. So while 16 is close to 0, 32 is closer, and 64 is closer still.

The integers expand to the right of the number line (or the left of the numeral). But the 2-adics expand into themselves: each subdivision grows in the same space that was once zero to one. These numbers dart back and forth in a contained space; you can hold infinity in the palm of

mgold

Built with blockbuilder.org

mgold

require "ipaddr"

class IPAddr
  # Returns the ipaddr representing the smallest CIDR block that includes both
  # ipaddrs.
  def union(other)
    addr = @addr
    coerced = coerce_other(other).to_i
    prefixlen = self.ipv4? ? 32 : 128
    while addr != coerced

mgold

DEPTH = 6
LENGTH = 12

#Change me!
def f(i):
    return i
    #also try:
    #return i**2
    #return 2**i

mgold

/* octBright.c - visualize octal data with brightness
 * Max Goldstein
 *
 * example usage:
 * $ od -o < /dev/random | sed 's/^[0-9]* +//' | tr -d ' ' | ./octBright
 */

#include <stdio.h>

int main(){

mgold

/* hexBright.c - visualize hex data with brightness
 * Max Goldstein
 *
 * example usage:
 * $ head /dev/urandom | hexdump -e '16/1 "%02x " "\n"' | ./hexBright
 */

#include <stdio.h>

int main(){

mgold

-- Gyrations by Max Goldstein

import Window

main = scene <~ foldp (+) 0 (fps 40) ~ Window.dimensions

scene t (w,h) =
  let minr = 14
      maxr = 40
      time = inSeconds t

mgold

-- Sploosh Ball by Max Goldstein

import Window
import Mouse

-- Model
type Spoke = ((Float,Float), Color)

-- Update
curColor : Signal Color

mgold

-- Bitmap Draw by Max Goldstein

-- Change the cursor mode with the keyboard:
-- t Toggle (default)
-- b Black
-- w White
-- c Clear (automatically resets to Toggle afterwards)

import Mouse
import Keyboard