bomb.hs
Model of a Cartoon Bomb, Labelled C++
This was used as a “flavour image” for a blog post on Haskell FFI
#!/usr/bin/env stack
{- stack script --resolver lts-22.6
--package linear
--package waterfall-cad
--extra-dep waterfall-cad-0.3.0.0
--extra-dep opencascade-hs-0.3.0.0
-}
-- short-description: Model of a Cartoon Bomb, Labelled C++
--
-- description: Model of a Cartoon Bomb, Labelled C++
-- description:
-- description: This was used as a "flavour image" for a [blog post](../posts/2024-01-23-ffi.html)
-- description: on Haskell FFI
import qualified Waterfall
import qualified Waterfall.Solids as Solids
import qualified Waterfall.Transforms as Transforms
import Linear
import Data.Function ((&))
bomb :: Waterfall.Font -> Waterfall.Solid
=
bomb font let sphere = Waterfall.translate (negate $ unit _z) Waterfall.unitSphere
= Waterfall.uScale 0.25 Waterfall.centeredCylinder
cyl = Waterfall.bezier3D zero (V3 0 0 0.6) (V3 0 0.5 0.5) (V3 0 0.75 0.75)
fusePath = Waterfall.sweep fusePath (Waterfall.uScale2D 0.075 Waterfall.unitCircle)
fuse =
blast &
Waterfall.centeredCube &
Waterfall.translate (unit _y) V3 0.1 0.25 0.1) &
Waterfall.scale (iterate (Waterfall.rotate (unit _x) (2* pi/5)) &
take 4 &
mconcat &
16 * pi/10) &
Waterfall.rotate (unit _x) (V3 0 0.75 0.75)
Waterfall.translate (= Waterfall.prism 5 $ Waterfall.text font "c++"
text =
textOnSurface `Waterfall.intersection` text) &
(Waterfall.unitSphere 1.05 &
Waterfall.uScale pi/2) &
Waterfall.rotate (unit _x) (pi/2) &
Waterfall.rotate (unit _z) (negate $ unit _z)
Waterfall.translate (in mconcat [sphere, cyl, fuse, blast, textOnSurface]
main :: IO ()
= do
main <- Waterfall.fontFromSystem "monospace" Waterfall.Regular 0.6
font 0.01 "bomb.stl" (bomb font) Waterfall.writeSTL