steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

shapefiles: more cleanup.

windows-high-dpi
John Benediktsson 2018-02-18 16:06:42 -08:00
parent a90ef73d6b
commit d910ed5572
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/shapefiles/shapefiles.factor
View File

@ -11,21 +11,21 @@ IN: shapefiles
: read-int ( -- n ) : read-int ( -- n )
4 read le> ; 4 read le> ;
: read-double ( -- n )
8 read le> bits>double ;
: read-box ( -- box )
4 [ read-double ] replicate ;
: read-ints ( n -- parts ) : read-ints ( n -- parts )
[ read-int ] replicate ; [ read-int ] replicate ;
: read-range ( -- range ) : read-double ( -- n )
read-double read-double 2array ; 8 read le> bits>double ;
: read-doubles ( n -- array ) : read-doubles ( n -- array )
[ read-double ] replicate ; [ read-double ] replicate ;
: read-box ( -- box )
4 read-doubles ;
: read-range ( -- range )
2 read-doubles ;
PRIVATE> PRIVATE>
TUPLE: header file-code file-length version shape-type x-min TUPLE: header file-code file-length version shape-type x-min
@ -93,7 +93,7 @@ TUPLE: polyline-m box parts points m-range m-array ;
TUPLE: polygon-m box parts points m-range m-array ; TUPLE: polygon-m box parts points m-range m-array ;
: read-polygon-m ( -- polyline-m ) : read-polygon-m ( -- polygon-m )
read-box read-int read-int [ read-ints ] dip read-box read-int read-int [ read-ints ] dip
[ read-points read-range ] [ read-doubles ] bi [ read-points read-range ] [ read-doubles ] bi
polygon-m boa ; polygon-m boa ;
@ -123,7 +123,7 @@ m-array ;
TUPLE: polygon-z box parts points z-range z-array m-range TUPLE: polygon-z box parts points z-range z-array m-range
m-array ; m-array ;
: read-polygon-z ( -- polyline-z ) : read-polygon-z ( -- polygon-z )
read-box read-int read-int [ read-ints ] dip read-box read-int read-int [ read-ints ] dip
[ read-points read-range ] [ read-points read-range ]
[ read-doubles read-range ] [ read-doubles read-range ]