You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
528 B
GLSL
26 lines
528 B
GLSL
(
|
|
; core utilities
|
|
($_) $drop
|
|
($x $y ^x ^y) $swap
|
|
($a $b $c ^b ^a ^c) $rot
|
|
(sub) $-
|
|
(0 swap - -) $+
|
|
($x x) $force
|
|
(32 emit) $bl
|
|
(10 emit) $cr
|
|
|
|
; if-stmt
|
|
($c $t $f c ^f ^t rot cswap $_ force) $if
|
|
($f $t $c $fn ^f ^t ^c fn) $endif
|
|
|
|
; range
|
|
($self $fn $start $end
|
|
^if (^start ^end eq) ()
|
|
(^start fn ^end ^start 1 + ^fn self)
|
|
endif
|
|
) $each
|
|
|
|
10 0 ($i 10 0 ($j ^i 48 + emit ^j 48 + emit bl) each) each
|
|
cr
|
|
)
|