86 |
|
or(a,b) : if(a,a,b); |
87 |
|
EPS : 1e-7; |
88 |
|
neq(a,b) : if(a-b-EPS,1,b-a-EPS); |
89 |
< |
btwn(a,b) : if(a-x,-1,b-x); |
89 |
> |
btwn(a,x,b) : if(a-x,-1,b-x); |
90 |
|
clip(x) : if(x-1,1,if(x,x,0)); |
91 |
|
frac(x) : x - floor(x); |
92 |
|
boundary(a,b) : neq(floor(ndivs*a),floor(ndivs*b)); |
93 |
|
|
94 |
< |
isconta = or(boundary(vleft,vright),boundary(vabove,vbelow)); |
94 |
> |
isconta = if(btwn(0,v,1),or(boundary(vleft,vright),boundary(vabove,vbelow)),-1); |
95 |
|
iscontb = if(btwn(0,v,1),btwn(.4,frac(ndivs*v),.6),-1); |
96 |
|
|
97 |
|
ro = if(in,clip($redv),ra); |