unicode.data, terrain.generation: remove abusive stack effect names.
parent
d3bc2035a2
commit
7a6570b355
|
@ -174,8 +174,8 @@ C: <code-point> code-point
|
||||||
4 head [ multihex ] map first4
|
4 head [ multihex ] map first4
|
||||||
<code-point> swap first ,, ;
|
<code-point> swap first ,, ;
|
||||||
|
|
||||||
! Extra properties
|
! Extra properties {{[a,b],prop}}
|
||||||
: parse-properties ( -- {{[a,b],prop}} )
|
: parse-properties ( -- assoc )
|
||||||
"vocab:unicode/data/PropList.txt" data [
|
"vocab:unicode/data/PropList.txt" data [
|
||||||
[
|
[
|
||||||
".." split1 [ dup ] unless*
|
".." split1 [ dup ] unless*
|
||||||
|
|
|
@ -61,7 +61,7 @@ TYPED: terrain-segment ( terrain: terrain at: float-4 -- image )
|
||||||
: 4max ( a b c d -- max )
|
: 4max ( a b c d -- max )
|
||||||
max max max ; inline
|
max max max ; inline
|
||||||
|
|
||||||
: mipmap ( {{pixels}} quot: ( aa ab ba bb -- c ) -- pixels' )
|
: mipmap ( pixels quot: ( aa ab ba bb -- c ) -- pixels' )
|
||||||
[ [ 2 <groups> ] map 2 <groups> ] dip
|
[ [ 2 <groups> ] map 2 <groups> ] dip
|
||||||
'[ first2 [ [ first2 ] bi@ @ ] 2map ] map ; inline
|
'[ first2 [ [ first2 ] bi@ @ ] 2map ] map ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue