Having fun modeling tablet weaves in the deutsches museum
Here's the code for that:
daveWeave = TabletWeave {tLoom = TabletLoom {tablets = [Tablet [y,y,y,y] Z, Tablet [w,r,b,w] Z, Tablet [w,w,r,b] Z, Tablet [b,w,w,r] Z, Tablet [b,r,w,w] S, Tablet [w,b,r,w] S, Tablet [w,w,b,r] S, Tablet [y,y,y,y] S], tabletWeft = thread orange }, tSheds = map (replicate 8) [S,S,S,S,Z,Z,Z,Z] } where y = thread yellow b = thread brown w = thread white r = thread red
@yaxu
mastodon needs some text formatting options
@yaxu Digging the fiber arts related stuff from you lately, my wife's hobby is across the spectrum of all things fiber from spinning, carding, weaving, knitting, and sprang to a dozen others.
Here's the code for that:
daveWeave =
TabletWeave {tLoom =
TabletLoom {tablets = [Tablet [y,y,y,y] Z, Tablet [w,r,b,w] Z, Tablet [w,w,r,b] Z, Tablet [b,w,w,r] Z, Tablet [b,r,w,w] S, Tablet [w,b,r,w] S, Tablet [w,w,b,r] S, Tablet [y,y,y,y] S],
tabletWeft = thread orange
},
tSheds = map (replicate 8) [S,S,S,S,Z,Z,Z,Z]
}
where y = thread yellow
b = thread brown
w = thread white
r = thread red