! Copyright (C) 2008 Jeff Bigot\r
! See http://factorcode.org/license.txt for BSD license.\r
-USING: adsoda xml xml.utilities xml.dispatch accessors combinators\r
-sequences math.parser kernel splitting values continuations ;\r
+USING: adsoda xml xml.utilities xml.dispatch accessors \r
+combinators sequences math.parser kernel splitting values \r
+continuations ;\r
IN: 4DNav.space-file-decoder\r
\r
-: decode-number-array ( x -- y ) "," split [ string>number ] map ;\r
+: decode-number-array ( x -- y ) \r
+ "," split [ string>number ] map ;\r
\r
PROCESS: adsoda-read-model ( tag -- )\r
\r
-TAG: dimension adsoda-read-model children>> first string>number ;\r
-TAG: direction adsoda-read-model children>> first decode-number-array ;\r
-TAG: color adsoda-read-model children>> first decode-number-array ;\r
-TAG: name adsoda-read-model children>> first ;\r
-TAG: face adsoda-read-model children>> first decode-number-array ;\r
+TAG: dimension adsoda-read-model \r
+ children>> first string>number ;\r
+TAG: direction adsoda-read-model \r
+ children>> first decode-number-array ;\r
+TAG: color adsoda-read-model \r
+ children>> first decode-number-array ;\r
+TAG: name adsoda-read-model \r
+ children>> first ;\r
+TAG: face adsoda-read-model \r
+ children>> first decode-number-array ;\r
\r
TAG: solid adsoda-read-model \r
<solid> swap \r
{ \r
- [ "dimension" tag-named adsoda-read-model >>dimension ] \r
+ [ "dimension" tag-named adsoda-read-model >>dimension ]\r
[ "name" tag-named adsoda-read-model >>name ] \r
[ "color" tag-named adsoda-read-model >>color ] \r
- [ "face" tags-named [ adsoda-read-model cut-solid ] each ] \r
+ [ "face" \r
+ tags-named [ adsoda-read-model cut-solid ] each ] \r
} cleave\r
ensure-adjacencies\r
;\r
TAG: light adsoda-read-model \r
<light> swap \r
{ \r
- [ "direction" tag-named adsoda-read-model >>direction ] \r
+ [ "direction" tag-named adsoda-read-model >>direction ]\r
[ "color" tag-named adsoda-read-model >>color ] \r
} cleave\r
;\r
TAG: space adsoda-read-model \r
<space> swap \r
{ \r
- [ "dimension" tag-named adsoda-read-model >>dimension ] \r
+ [ "dimension" tag-named adsoda-read-model >>dimension ]\r
[ "name" tag-named adsoda-read-model >>name ] \r
- [ "color" tag-named adsoda-read-model >>ambient-color ] \r
- [ "solid" tags-named [ adsoda-read-model suffix-solids ] each ] \r
- [ "light" tags-named [ adsoda-read-model suffix-lights ] each ] \r
+ [ "color" tag-named \r
+ adsoda-read-model >>ambient-color ] \r
+ [ "solid" tags-named \r
+ [ adsoda-read-model suffix-solids ] each ] \r
+ [ "light" tags-named \r
+ [ adsoda-read-model suffix-lights ] each ]\r
} cleave\r
;\r
\r