Apanatshka

Wintergatan Design Discussion

Hi Martin! After seeing your video yesterday, I didn't have any ideas. But this morning between sleep and waking I suddenly had a couple of ideas so I'm writing them down here. Here's the rundown:

• Feedback on the ideas in your video
• Ideas for removing pins from the programming section
• Ideas for switching the programming sections on the machine on stage
• Ideas for colours/detailing of the programming sections

Apanatshka

import Html exposing (Html)
import Debug
import Array exposing (Array)
import Html.Attributes as HtmlA -- exposing (..)
import Html.Events as HtmlE --exposing (on, onClick, targetChecked)
import Signal exposing (Address)
import StartApp.Simple as StartApp


main =

Apanatshka

import Graphics.Element exposing (show)
import Graphics.Collage as GC
import Color as C
import Mouse

primes =
  [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571, 577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761, 769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863, 877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997, 1009, 1013, 1019, 1021, 1031, 1033, 1039, 1049, 1051, 1061, 1063, 1069, 1087, 1091, 1093, 1097, 110

Apanatshka

import Html exposing (Html, div, text, input, button)
import Html.Attributes exposing (value, placeholder)
import Html.Events exposing (on, targetValue, onClick)
import Signal as Signal
import List exposing (head, tail)
import Maybe
import Debug

isUpdate ha = case ha of
  Just (Update _ _) -> True

Apanatshka

import Accumulatory -- whatever it is you're accumulating

sourceOfResetEvents1 : Signal a

data AccumulationCommand3 = Acc3 Accumulatory  | Reset3

somethingToAccumulate1 : Signal Accumulatory.Accumulatory
zeroValue1 : Accumulatory.Accumulatory

-- The solution

Apanatshka

type Body x = { pos:(Int,Int), wrap : x }
type Bubble = { radius: Int }
type Box = { w: Int, h: Int }
 
data Wrap = WBox Box | WBubble Bubble
 
mv: (Int,Int) -> Body a -> Body a
mv (x,y) body =
  let (x0,y0)= body.pos
  in { body | pos <- (x0+x, y0+y)}

Apanatshka

time = fps 60
longList = [1..1000000]
sumSig = sum <~ (sampleOn time <| constant longList)
main = asText <~ ((,) <~ time ~ sumSig)