Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Prelude> import Diagrams.Prelude
- Prelude Diagrams.Prelude> :set -XFlexibleContexts
- Prelude Diagrams.Prelude> let a = circle 1 # named "a"
- Prelude Diagrams.Prelude> let b = circle 2 # named "b"
- Prelude Diagrams.Prelude> let d = beside unitX a b :: D V2 Double
- Prelude Diagrams.Prelude> names d
- [(toName "a",[P (V2 0.0 0.0)]),(toName "b",[P (V2 2.9999999999999996 0.0)])]
Add Comment
Please, Sign In to add comment