Forth Haiku Editor

📺

: ang -0.2 ;
: xtwist ang cos x * ang sin y * - ;
: ytwist ang sin x * ang cos y * + ;
: xtile xtwist 0.3 mod 3 * ; : ytile ytwist 0.3 mod 3 * ;
: gaps 0.023 ; : bandsz 0.02 ;
: waves
 x 7 * y 1.3 * +
  t 5 * 3.14159 2 * mod +
  sin 0.1 * 0.5 + 
 y  x 0.1 *  - 
 t sin 0.7 * - <
;
: foot1x 0.5 ; : foot1y 0.5 ; : foot2x 0.5 0.11 - ;
: foot1sz 0.07 ; : foot2sz 0.053 ;
: foot
 0 ! 1 ! 2 !
  x foot1x 2 @ + - 0.7 * dup * y foot1y 1 @ + - dup * + sqrt foot1sz <
  x foot2x 2 @ + - 0.9 * dup * y foot1y 1 @ + 0 @ + - dup * + sqrt foot2sz <
 or
 x foot1x 2 @ + - bandsz mod bandsz 2 / < *
;
: left 0.15 -0.01 foot ; : right -0.15 0.01 foot ;
-0.5 left -0.35 right +
   0 left  0.15 right +
 0.5 left  0.65 right +
+ +

: walk 1 waves - *  3.14159 -0.5 * t + sin x > * ; walk

: rnd x 12.9898 * y 78.233 * + sin 43758.5453123 * 1 mod ;
: gr 0.7 rnd 0.05 * + ; : dirt rnd 0.2 * + ;

if  0.423 dirt 0.164 dirt 0.094 dirt else
 xtile gaps < ytile gaps < or
 if  0.223 dirt 0.164 dirt 0.094 dirt  else  gr gr gr  then
then

: wavefade waves t 3.14159 0.5 * + sin 0.5 + 0.5 * * + ;
waves + rot wavefade rot wavefade rot

random 3.14159 0.5 * t + sin 10 pow * audio

: walk 1 waves - *  3.14159 -0.5 * t + sin x > * ; walk

: rnd x 12.9898 * y 78.233 * + sin 43758.5453123 * 1 mod ;
: gr 0.7 rnd 0.05 * + ; : dirt rnd 0.2 * + ;

if  0.423 dirt 0.164 dirt 0.094 dirt else
 xtile gaps < ytile gaps < or
 if  0.223 dirt 0.164 dirt 0.094 dirt  else  gr gr gr  then
then

: wavefade waves t 3.14159 0.5 * + sin 0.5 + 0.5 * * + ;
waves + rot wavefade rot wavefade rot

random 3.14159 0.5 * t + sin 10 pow * audio

Title:

Author:

(No Undo!)

Forth Haiku Glossary