Skip to content

Instantly share code, notes, and snippets.

@isovector

isovector/wtf.hs

Created December 1, 2020 19:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save isovector/177770fd47cbfc1d6d74c3f39fa9e7a9 to your computer and use it in GitHub Desktop.
Save isovector/177770fd47cbfc1d6d74c3f39fa9e7a9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
wtf.hs
test =
DifferenceR3 0.0
( UnionR3 0.0
[ Translate3 (0.0, 0.0, -6.0) (Translate3 (-7.0, -7.0, -6.0) (CubeR 0.0 (14.0, 14.0, 12.0)))
, UnionR3 0.0
[ UnionR3 0.0
[ Translate3 (0.0, 0.0, -5.0) (Translate3 (-5.0, -5.0, -5.0) (UnionR3 0.0 []))
, UnionR3 0.0 [UnionR3 0.0 [], UnionR3 0.0 []]
]
, UnionR3 0.0 []
]
]
)
[ UnionR3 0.0
[ Translate3 (0.0, 0.0, -6.0) (Translate3 (-7.0, -7.0, -6.0) (UnionR3 0.0 []))
, UnionR3 0.0
[ UnionR3
0.0
[ Translate3 (0.0, 0.0, -5.0) (Translate3 (-5.0, -5.0, -5.0) (CubeR 0.0 (10.0, 10.0, 10.0)))
, UnionR3 0.0 [UnionR3 0.0 [], UnionR3 0.0 []]
]
, UnionR3 0.0 []
]
]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment