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

shapefiles: use null-shape singleton for... null shapes.

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

4
extra/shapefiles/shapefiles.factor
View File

@ -47,6 +47,8 @@ y-min x-max y-max z-min z-max m-min m-max ;
read-double
header boa ;
SINGLETON: null-shape
TUPLE: point x y ;
: read-point ( -- point )
@ -141,7 +143,7 @@ m-range m-array ;
: read-shape ( -- shape )
4 read le> {
{ 0 [ null ] }
{ 0 [ null-shape ] }
{ 1 [ read-point ] }
{ 3 [ read-polyline ] }
{ 5 [ read-polygon ] }