All gists

june's Avatar

june / V2 IR Snippet

0 likes
0 forks
1 files
Last active 4 hours ago
An example of V2's intermediate representation.
1 {
2 "foo": [
3 {
4 "conditions": [
5 {
6 "stack": "bar",
7 "pattern": [
8 {
9 "type": "variable",
10 "symbol": "baz"
capitalex's Avatar

capitalex / dsl.lua

0 likes
0 forks
3 files
Last active 1 month ago
1 local function eval (prog, env)
2 local env = env or {}
3 local last
4 for _, fn in ipairs (prog) do
5 last = fn (env)
6 end
7 return last
8 end
9
10 local function force (env)
capitalex's Avatar

capitalex / script.lua

0 likes
0 forks
1 files
Last active 1 month ago
1 WeekOne = {}
2 function WeekOne.morning ()
3 player.at = "home"
4 player.x = bed.x
5 player.y = bed.y
6
7 add (home_door) (bed) (computer) (player) ()
8
9 interaction (home_door) (player) (then_go_to (WeekOne.work))
capitalex's Avatar

capitalex / stuff.lua

0 likes
0 forks
1 files
Last active 1 month ago
1 -- quotation.lua
2 local function quotation_call(quote, env)
3 if rawget(quote, "namespace") then env.namespace:push(quote.namespace) end
4 for _, item in ipairs(quote.body) do
5 local typ = type(item)
6 if typ == "number" or typ == "boolean" or typ == "string" or (typ == "table" and item.type == "quote") then
7 env.data:push(item)
8 else
9 item(env)
10 end
capitalex's Avatar

capitalex / point.gilded

0 likes
0 forks
1 files
Last active 1 month ago
1 : sq dup * ;
2
3 : keep
4 over { call } dip ;
5
6 : mag@ 'mag@ print
7 'x @ dup print sq
8 'y @ dup print sq
9 + sqrt ;
capitalex's Avatar

capitalex / hello-world.kbl

0 likes
0 forks
2 files
Last active 1 month ago
1 Actors [ :Helloer :Goodbyer :Worlder :Changer ] ;
2
3 Every :Tick :Helloer does [ Say "Hello, " ] ;
4 Every :Tick :Goodbyer does [ Say "Goodbye, " ] ;
5 Every :Tick :Worlder does [ Say "World!" ] ;
6 Every :Tick :Changer does [
7 Peek :CurrentScene ; Is :HelloWorld ; Then [
8 Become :GoodbyeWorld ; Done ;
9 ] ;
june's Avatar

june / Deck of Cards

0 likes
0 forks
1 files
Last active 1 month ago
Generate a deck of cards.
1 ||:: form a deck :suits: (spades hearts diamonds clubs)
2 :ranks: (2 3 4 5 6 7 8 9 jack queen king ace)
3
4 |:: form a deck? :suits: $suit|
5 :: match $suit to a rank
6 :used suits: $suit
7 |:: form a deck|
8 :: reset suits
9
10 |:: match $suit to a rank? :ranks: $rank|
autumn's Avatar

autumn / pyra nested loops

0 likes
0 forks
1 files
Last active 1 month ago
1 | EXAMPLE USAGE
2
3
4 * create a 3x3 grid of cubes
5 - loop ~ from: 0 0 0 ~ to: 2 2 2 - by: 1
6 - create cubelets
7
8 * create cubelets * done:
9
10 | create cubelets \ indices: I J K
june's Avatar

june / Quad Store w/ Arrays

0 likes
0 forks
1 files
Last active 1 month ago
A definition of a quad store, and an example defining arrays.
1 ||:: foo @ 0 = 10
2 :: foo @ 1 = 20
3 :: foo @ 2 = 30
4 :: foo @ 0
5 :: foo @ *
6
7 |:: $name @ *? :found: array $name $index $value|
8 :values: $value
9 |:: $name @ * :empty:|
10 |:: $name @ *?|
capitalex's Avatar

capitalex / boil.glsl

0 likes
0 forks
1 files
Last active 2 months ago
1 uniform sampler2D noise;
2 uniform float scale = 0.005;
3 uniform float TIME = 0.0;
4 uniform vec2 TEXTURE_PIXEL_SIZE;
5
6 vec4 effect(vec4 color, Image TEXTURE, vec2 UV, vec2 screen_coords) {
7 vec2 uv = UV;
8 vec2 noise_pixel_size = vec2(256.0);
9 vec2 noise_uv = UV / TEXTURE_PIXEL_SIZE / noise_pixel_size;
10 vec2 sample = Texel(noise, vec2(noise_uv + TIME - mod(TIME, 0.15))).rb;
Newer Older

Powered by Opengist ⋅ Load: 218ms⋅

English