Fix Makefile whitespace errors
[shapes.git] / examples / metapdf_examples / named.mpdf
blob812fdd80fcf9738a520b913367992f324f17d4a0
1 [let ( f: [\ x a:4 b:5 ] x + a * b )
2   {
3     [show [f 0 a:6]]
4     [show [f 0 b:6]]
5     [show [f 0]]
6   }
9 [ ABC :: [class (`ABC´ a:1 b:2 c:3) isa ((Object)) final (__members__ (a a get) (b b get) (c c get))] ]
11 [let ( o: [ABC.new b:9] )
12   {
13     [show o.a]
14     [show o.b]
15     [show o.c]
16   }
19 [hypot :: [\ x y scale:1] scale*(x++y)]
21 [let ( t: [cos 180° ...] )
22   [show [t]]]
24 [let* ( t: [\ a b] 2*a + b
25         f: [t 1 ...]
26         g: [t VOID 1 ...]
27       )
28   {
29     [show [f 2]]
30     [show [g 2]]
31   }
34 [let ( inc: [(+) 1 ...] )
35   [show [inc 1]]]
37 [show [(-) 10 3]]
39 [stroke (0cm,0cm)--(1cm,1cm)]