Haiku Monthly

June 27, 2015

Brad Nelson / @flagxor

Breaking NEWS

Do Not Adjust Your TV

TV - Ivanq

Coming soon to Theaters...

Martian Cosmos - Anonymous

Meanwhile, back on Earth...

Cosmos - Ivanq

Haikus learn to spin!

Sierpinski Globe Rotations - DarkstarAG

and spin...

Man running with landscape Rotating - DarkstarAG

and spin...

Night Road Rotating - DarkstarAG

Now for some razzle dazzle

bizzaro streak Redux - DarkstarAG


( : sin pi 2 * mod pi / 1 - ; ) 
: k t 0.57 / sin * 2 * ;
: h t 0.57 / cos * 2 * ;
: web push push
x k 0.5 + y h 0.3 + * pop * sin 0 max
x h 0.3 + y k 0.5 + * pop * cos 0 max + ;
31 23 web 17 17 web * x +
23 31 web 19 19 web * y x * +
31 31 web 7 7 web * y +
          

bizzaro streak Redux - DarkstarAG

The website was Tied in Knots!

TV Tie - Anonymous

Waves of SPAM!

The Eternal Struggle

SPAM

  • First there was a trickle
    • A boy named: fFDJKFSsadfjklaSDF
  • Then a flood!
    • I can pay no finer tribute than to say that Jim was a true son of Ulster and a gentleman.

A Day of Spam

A Month of Spam

In Depth SPECIAL!

Trees of Light

Tracing the Origins of Ancient Haiku

Where did we come from?

  • Create a derived work
  • But no record was kept
  • Start tracking it now!

Show it to the user

What about Ancient Haiku?

Tracing Ancestry

  • Decide who inherits from who
  • Build a tree

Determining Family Relations

  • Use a measure of relatedness
  • Parents must precede children in time
  • Pick the closest match
  • Some Haiku are orphans

Measure of Relatedness

  • Levenshtein distance
  • Python difflib

Measure of Relatedness


def StringSimilarity(a, b):
  return difflib.SequenceMatcher(a=a.lower(), b=b.lower()).ratio()
          

Which Text?

  • Source code
  • Title
  • Author

xor tunnel color - Anonymous


: p 2 * pi * cos 0.5 * 0.5 + ;
: col dup dup p swap 1 3 / + p rot 2 3 / + p ;
: x' x 0.5 - t sin 0.2 * + ;
: y' y 0.5 - t 1.5 * cos 0.2 * + ;
: dist x' x' * y' y' * + sqrt ;
: b / floor 2 mod ;
: w dup x' y' atan2 pi / 512 * t 100 * +
  256 mod 128 dist / t 500 * + 256 mod
rot dup rot swap b -rot b + abs 2 mod *  + ;
0 4 w 8 w 16 w 32 w 64 w 128 w 256 / t + col
dist 2 * * swap dist 2 * * rot dist 2 * *
          

xor tunnel color - Anonymous

xor tunnel shorter - Anonymous


: x' x 0.5 - t sin 0.2 * + ;
: y' y 0.5 - t 1.5 * cos 0.2 * + ;
: dist x' x' * y' y' * + sqrt ;
: b / floor 2 mod ;
: w dup x' y' atan2 pi / 512 * t 100 *
  + 256 mod 128 dist / t 500 * + 256 mod
rot dup rot swap b -rot b + abs 2 mod *  + ;
0 4 w 8 w 16 w 32 w 64 w 128 w 256 / dist * dup dup
          

xor tunnel shorter - Anonymous

xor tunnel dark - boomlinde


: x' x 0.5  - t sin 0.2 * + ;
: y' y 0.5 - t 1.5 * cos 0.2 * + ;
: dist x' x' * y' y' * + sqrt ;
: xor + abs 2 mod ;
: b / floor 2 mod ;
: m 256 * floor ;
: a dup rot swap b -rot b xor ;
: w dup

x' y' atan2 pi / 512 * t 100 * + 256 mod
128 dist / t 500 * + 256 mod

rot a * ;
1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w
 + + + + + + + 256 / dist * dup dup
          

xor tunnel dark - boomlinde

xor tunnel - boomlinde


: x' x 0.5  - t sin 0.2 * + ;
: y' y 0.5 - t 1.5 * cos 0.2 * + ;
: dist x' x' * y' y' * + sqrt ;
: xor + abs 2 mod ;
: b / floor 2 mod ;
: m 256 * floor ;
: a dup rot swap b -rot b xor ;
: w dup

x' y' atan2 pi / 512 * t 100 * + 256 mod
128 dist / t 500 * + 256 mod

rot a * ;
1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w
 + + + + + + + 256 / dup dup
          

xor tunnel - boomlinde

xor texture - boomlinde


: xor + abs 2 mod ;
: b / floor 2 mod ;
: m 256 * floor ;
: a dup rot swap b -rot b xor ;
: w dup x m y m rot a * ;
1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w
 + + + + + + + 256 / dup dup
          

xor texture - boomlinde

sierpinski - boomlinde


: b / floor 2 mod ;
: m 128 * floor ;
: a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ;
: w x m y m rot a ;
0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w
+ + + + + + + 0.5 <
          

sierpinski - boomlinde

Possibilities

  • Rank based on use
  • Check if people cheat
  • Show the tree

Tour the Tree!