Files
microw8/examples/curlywas/line.cwa

16 lines
386 B
Plaintext

include "../include/microw8-api.cwa"
export fn upd() {
cls(0);
let i: i32;
loop lines {
let angle = i as f32 * (3.1415 / 25.0) + time() * 0.125;
line(
160 as f32, 120 as f32,
160 as f32 + sin(angle) * 100 as f32,
120 as f32 + cos(angle) * 100 as f32,
47);
branch_if (i := i + 1) < 50: lines;
}
}