*

\ 顯示 左下角 x0,y0 右上角 x1,y1 的矩形
:( x0 y0 x1 y1 -- 矩形 )
y > ( x0 y0 x1 y1>y )
rot ( x0 x1 y1>y y0 )
y < ( x0 x1 y1>y y0<y )
* ( x0 x1 y1>y*y0<y )
>r ( x0 x1 )
x > ( x0 x1>x )
swap ( x1>x x0 )
x < ( x1>x x0>x )
* ( x1>x*x0>x )
r> ( x1>x*x0>x y1>y*y0<y )
* ( x1>x*x0>x*y1>y*y0<y )
;
\ 顯示 相反亮度
:( 亮度 -- 相反亮度 )
0 max \ 若亮度小於0, 就將亮度變為0
1 min \ 若亮度大於1, 就將亮度變為1
1 swap - \ 亮度0的地方變為1, 1的地方變為0
;
\ 紅 橫矩形
.10 .20 .90 .80 矩
\ 綠 豎矩形
.20 .10 .80 .90 矩
\ 藍 框
.01 .01 .99 .99 矩
.09 .09 .91 .91 矩 反 *