結局疲れちゃってmakeMistakesToLearnHaskellの続きしかできませんでした！GHCup v.s. Stackの件は後で！
... Replies ...
Vector) を作りますpitagoras1 :: (Either Error Model2d) pitagoras1 = sketch do a <- point & x 0 & y 0 b <- point & x 4 & y 0 v1 <- line & from a & degree 30 v2 <- line & from b & degree 90 c <- intersection v1 v2 polygon [a, b, c]
obj :: OpenSCADM Model3d
obj = do
let ~(Right r) = traceShowId $ sketch
do
a <- point & x 0 & y 0
b <- point & x 4
c <- point
d <- point & y 4
putEq a.y b.y
putEq a.x d.x
putEq c.x b.x
putEq c.y d.y
Sketch.polygon [a, b, c, d]
pure $ linearExtrudeDefault 1 r