twc/ludus
4
0
Fork 0
Code Issues 36 Pull Requests Packages Projects 8 Releases Wiki Activity

build

Browse Source
This commit is contained in:
Scott Richmond 2024-08-01 18:50:09 -04:00
parent 479e304357
commit be9a86a973
7 changed files with 63 additions and 3984 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
build/ludus.jimage
View File

Binary file not shown.

4
build/ludus.mjs
View File

@ -194,11 +194,11 @@ function rotate (vector, heading) {
}
function turn_to_rad (heading) {
return heading * 2 * Math.PI
return (heading % 1) * 2 * Math.PI
}
function turn_to_deg (heading) {
return (heading * 360)
return ((heading % 1) * 360)
}
function svg_render_line (prev, curr) {

2
build/out.mjs
View File

@ -6489,7 +6489,7 @@ var __emscripten_stack_alloc = (a0) => (__emscripten_stack_alloc = wasmExports['
var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])();
var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5);
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816104;
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816476;
function invoke_i(index) {
var sp = stackSave();
try {

BIN
build/out.wasm
View File

Binary file not shown.

18
build/svg_test.mjs
View File

@ -1,15 +1,15 @@
import {run, svg} from "./ludus.mjs"
const code = `
print! (random ())
print! (random ())
print! (random ())
print! (random ())
print! (random ())
print! (random ())
`
pencolor! (colors :white)
repeat 10 {
repeat 4 {
fd! (500)
rt! (0.25)
}
rt! (0.1)
}`
const result = run(code)
console.log(result.io.stdout.data)
console.log(svg(result.io.turtle.data))

4019
build/svg_test.svg
View File

File diff suppressed because it is too large Load Diff
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 338 KiB

After

Width:  |  Height:  |  Size: 7.7 KiB

4
prelude.ld
View File

@ -1232,8 +1232,8 @@ fn apply_command {
(:clear) -> do state >
assoc (state, :position, (0, 0)) >
assoc (_, :heading, 0)
(:right, turns) -> update (state, :heading, add (_, turns))
(:left, turns) -> update (state, :heading, sub (_, turns))
(:right, turns) -> update (state, :heading, mod (add (_, turns), 1))
(:left, turns) -> update (state, :heading, mod (sub (_, turns), 1))
(:forward, steps) -> {
let #{heading, position, ...} = state
let unit = heading/vector (heading)