# NaPoWriMo+GenMo2025_Haiga

# FrameStacking

For the 10th Day of **NaPoWriMo/ NaPoGenMo 2025**, ***FrameStacking*** is layered by ***Locomotion Coded Choreos***. The output is inspired by the *Haiga*, which are illustrations accompanied by *Haiku* poems.

## Poem

```ocaml
Stacking Choreo
Within Locomotion World
For this post  to Show
```

## Image

![](https://cdn.hashnode.com/res/hashnode/image/upload/v1744761576131/badda9e7-efb3-4efb-a6fe-9f1198ccb5b4.png align="center")

![](https://cdn.hashnode.com/res/hashnode/image/upload/v1744761580253/0d05e1c6-e2d9-40cc-8a04-3be23cee6562.png align="center")

![](https://cdn.hashnode.com/res/hashnode/image/upload/v1744761584061/3ac06d14-013f-481a-86db-32db859d13a6.png align="center")

![](https://cdn.hashnode.com/res/hashnode/image/upload/v1744761587963/4ded31f3-a898-46f8-bb09-54b994756015.png align="center")

![](https://cdn.hashnode.com/res/hashnode/image/upload/v1744761595056/c4d1da15-5a9c-465a-8d2e-1929cb67fd70.png align="center")

## Code

```haskell
b n = dancer {url = "dataghost", animation = [13,1,n,1,n+3,1,25,1,7,1,1] , 
size =  ((n +1)/20), y = range 0 5 (phase 16 (n/10) * 2 + (-1)),  
z = range -3 3 (phase 1 (n/50) * 2 + (-1)), rx = n * 27, dur = 2.5 };
for [0..35] b;
```