riki/rkgk
riki/rkgk
1
Fork 0
Code Issues 55 Pull requests Projects 1 Activity

update built-in examples to use newly introduced syntax

Browse source
This commit is contained in:
りき萌 2025-09-03 16:57:10 +02:00
parent b5cdfdb1b6
commit 914da923f7
4 changed files with 53 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

41
static/brush-box.js
View file

@ -15,7 +15,7 @@ color: #000
thickness: 8
withDotter \\d ->
stroke thickness color (line (d From) (d To))
stroke thickness color (line d.From d.To)
`.trim(),
},
@ -27,7 +27,7 @@ color: #000
thickness: 48
withDotter \\d ->
stroke thickness color (line (d From) (d To))
stroke thickness color (line d.From d.To)
`.trim(),
},
@ -40,14 +40,10 @@ thickness: 4
length: 5
duty: 0.5
or_: \\a, b ->
if (a) a
else b
withDotter \\d ->
visible? = mod (d Num) length < length * duty
visible? = d.Num |mod length < length * duty
if (visible?)
stroke thickness color (line (d From) (d To))
stroke thickness color (line d.From d.To)
else
()
`.trim(),
@ -61,7 +57,7 @@ color: #0003
thickness: 6
withDotter \\d ->
stroke thickness color (line (d From) (d To))
stroke thickness color (line d.From d.To)
`.trim(),
},
@ -76,10 +72,10 @@ wavelength: 1
withDotter \\d ->
pi = 3.14159265
a = sin (d Num * wavelength / pi) + 1 / 2
a = sin (d.Num * wavelength / pi) + 1 / 2
range = maxThickness - minThickness
thickness = a * range + minThickness
stroke thickness color (line (d From) (d To))
stroke thickness color (line d.From d.To)
`.trim(),
},
@ -93,22 +89,21 @@ amplitude: 50
wavelength: 1
mag: \\v ->
hypot (vecX v) (vecY v)
hypot vecX.v vecY.v
norm: \\u ->
l = mag u
u / vec l l
perpClockwise: \\v ->
vec (vecY v) -(vecX v)
vec vecY.v -(vecX.v)
withDotter \\d ->
pi = 3.14159265
a = sin (d Num * wavelength / pi) * amplitude
direction = (d To) - (d From)
clockwise = norm (perpClockwise direction) * vec a a
from = d From + clockwise
to = d To + clockwise
a = sin (d.Num * wavelength / pi) * amplitude
clockwise = norm (perpClockwise d.To-d.From) * vec a a
from = d.From + clockwise
to = d.To + clockwise
stroke thickness color (line from to)
`.trim(),
},
@ -121,16 +116,16 @@ wavelength: 0.1
thickness: 8
colorCurve: \\n ->
abs (cos n)
n |cos |abs
withDotter \\d ->
pi = 3.14159265
l = wavelength
r = colorCurve (d Num * l)
g = colorCurve (d Num * l + pi/3)
b = colorCurve (d Num * l + 2*pi/3)
r = colorCurve (d.Num * l)
g = colorCurve (d.Num * l + pi/3)
b = colorCurve (d.Num * l + 2*pi/3)
color = rgba r g b 1
stroke thickness color (line (d From) (d To))
stroke thickness color (line d.From d.To)
`.trim(),
},