workshopsoft/ludic
2
0
Fork 0
Code Issues Pull requests Projects Releases 26 Packages Wiki Activity Actions

wip(0.S3): packages and examples migrated again from their pre-0.S sources in one run

Browse source 
ludic migrate state packages <every example program> packages/ludic.lab/example/plate.ludic
  1804 vars into 126 states, 64 into lets; 23498 edits in 460 files

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-25 15:31:34 +03:00
parent 5ffe50ed02
commit 19fcf60599
459 changed files with 17862 additions and 17603 deletions
Download patch file Download diff file Expand all files Collapse all files

44
packages/ludic.tracks/read.ludic
View file

@ -1,54 +1,54 @@
# read.ludic - reading the ground. A print is read once: reading it again says the same thing
# and counts nothing, so pressing a key over one print is not as good as walking a trail.
export function tracks_fresh_of(age: float) -> int {
if age > tk_recent_h { return TRACK_OLD }
if age > tk_fresh_h { return TRACK_RECENT }
export function tracks_fresh_of(tracks_st: TracksState, age: float) -> int {
if age > tracks_st.tk_recent_h { return TRACK_OLD }
if age > tracks_st.tk_fresh_h { return TRACK_RECENT }
return TRACK_FRESH
}
function tk_push(f: TrackRead) -> void {
if f.first { tk_read_n += 1 }
q_push(tracks_reads(), f)
function tk_push(base_st: mut BaseState, tracks_st: mut TracksState, f: TrackRead) -> void {
if f.first { tracks_st.tk_read_n += 1 }
q_push(base_st, tracks_reads(base_st, tracks_st), f)
}
# read the print at a slot (tracks_nearest's answer): a fact every time, a count the first time
export function tracks_read(slot: int) -> void {
if slot < 0 or tk_ring == null or slot >= len(tk_ring) { return }
let t = tk_ring[slot]
export function tracks_read(base_st: mut BaseState, tracks_st: mut TracksState, slot: int) -> void {
if slot < 0 or tracks_st.tk_ring == null or slot >= len(tracks_st.tk_ring) { return }
let t = tracks_st.tk_ring[slot]
let f = new TrackRead
f.sp = t.sp
f.source = TRACK_PRINT
f.kind = slot / tk_cap
f.kind = slot / tracks_st.tk_cap
f.legend = t.legend
f.age = tracks_age(slot)
f.fresh = tracks_fresh_of(f.age)
f.age = tracks_age(tracks_st, slot)
f.fresh = tracks_fresh_of(tracks_st, f.age)
f.yaw = t.yaw
f.named = tk_named()
f.named = tk_named(tracks_st)
f.bearing = tk_bearing(t.yaw)
f.first = not t.read
t.read = true
tracks_note_bearing(t.yaw)
tk_push(f)
tracks_note_bearing(tracks_st, t.yaw)
tk_push(base_st, tracks_st, f)
}
# a sign that is not a print (droppings, a legend's mark): the caller knows whether it is the
# first reading of it
export function tracks_note(sp: int, source: int, legend: bool, yaw: float, first: bool) -> void {
export function tracks_note(base_st: mut BaseState, tracks_st: mut TracksState, sp: int, source: int, legend: bool, yaw: float, first: bool) -> void {
let f = new TrackRead
f.sp = sp
f.source = source
f.legend = legend
f.yaw = yaw
f.named = tk_named()
f.named = tk_named(tracks_st)
f.bearing = tk_bearing(yaw)
f.first = first
tk_push(f)
tk_push(base_st, tracks_st, f)
}
# the way the last thing read went (a bed, droppings, a print)
export function tracks_note_bearing(yaw: float) -> void {
tk_yaw = yaw
tk_has_yaw = true
export function tracks_note_bearing(tracks_st: mut TracksState, yaw: float) -> void {
tracks_st.tk_yaw = yaw
tracks_st.tk_has_yaw = true
}
export function tracks_set_read_count(n: int) -> void { tk_read_n = n }
export function tracks_set_read_count(tracks_st: mut TracksState, n: int) -> void { tracks_st.tk_read_n = n }