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
|
||||
<code-point> swap first ,, ;
|
||||
|
||||
! Extra properties
|
||||
: parse-properties ( -- {{[a,b],prop}} )
|
||||
! Extra properties {{[a,b],prop}}
|
||||
: parse-properties ( -- assoc )
|
||||
"vocab:unicode/data/PropList.txt" data [
|
||||
[
|
||||
".." split1 [ dup ] unless*
|
||||
|
|
|
@ -61,7 +61,7 @@ TYPED: terrain-segment ( terrain: terrain at: float-4 -- image )
|
|||
: 4max ( a b c d -- max )
|
||||
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
|
||||
'[ first2 [ [ first2 ] bi@ @ ] 2map ] map ; inline
|
||||
|
||||
|
|
Loading…
Reference in New Issue