34 lines
900 B
Plaintext
34 lines
900 B
Plaintext
$descseq($expr, $var, $sw, $ew, $start, $step) = {
|
|
[SEQ<%- for step in steps(0, $sw - $ew, $step) -%>
|
|
<%- set $var = round($sw - step, 2) -%>
|
|
<%- if $var >= $ew -%>
|
|
:$expr:<= round($start + step, 2) =>
|
|
<%- endif -%>
|
|
<%- endfor -%>
|
|
<%- set $var = $ew -%>:$expr:1]
|
|
}
|
|
|
|
$ascseq($expr, $var, $sw, $ew, $start, $step) = {
|
|
[SEQ<%- for step in steps(0, round($ew - $sw, 2), $step) -%>
|
|
<%- set $var = round($sw+step, 2) -%>
|
|
<%- if $var < $ew -%>
|
|
:$expr:<= round($start + step, 2) =>
|
|
<%- endif -%>
|
|
<%- endfor -%>
|
|
<%- set $var = $ew -%>:$expr:1]
|
|
}
|
|
|
|
$warmlora($lora, $e, $start, $step) = {
|
|
$x = <lora:$lora:<= x + $start =>>; $y = $($e - $start)
|
|
$ascseq($x, x, 0, $y, $step, $step)
|
|
}
|
|
|
|
$coollora($lora, $start, $step) = {
|
|
$x = <lora:$lora:<= x =>>
|
|
$descseq($x, x, $start, 0, 0, $step)
|
|
}
|
|
|
|
$rectmask($x, $y, $size) = {
|
|
MASK($x "<=" $x + $size "=>", $y "<=" $y + $size "=>")
|
|
}
|