1 USING: kernel sequences shapefiles tools.test ;
4 : save-and-load? ( shapes -- ? )
6 [ save-shapes ] [ load-shapes sequence= ] 2bi
10 { null-shape } save-and-load?
14 { null-shape T{ point f 1.0 2.0 } } save-and-load?
18 { T{ point-m f 1.0 2.0 3.0 } } save-and-load?
22 { T{ point-z f 1.0 2.0 3.0 4.0 } } save-and-load?
27 { box { 1.0 3.0 2.0 4.0 } }
29 { points { T{ point f 1.0 2.0 } T{ point f 3.0 4.0 } } } }
35 { box { 1.0 3.0 2.0 4.0 } }
37 { points { T{ point f 1.0 2.0 } T{ point f 3.0 4.0 } } }
38 { m-range { 10.0 20.0 } }
39 { m-array { 10.0 20.0 } } }
45 { box { 1.0 3.0 2.0 4.0 } }
47 { points { T{ point f 1.0 2.0 } T{ point f 3.0 4.0 } } }
48 { z-range { -10.0 -20.0 } }
49 { z-array { -10.0 -20.0 } }
50 { m-range { 10.0 20.0 } }
51 { m-array { 10.0 20.0 } } }