All New

Register

Login

All gists

june / Deck of Cards

0 likes

0 forks

1 files

Last active 4 days 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 / pyra nested loops

0 likes

0 forks

1 files

Last active 4 days 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 / Quad Store w/ Arrays

0 likes

0 forks

1 files

Last active 6 days 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 / boil.glsl

0 likes

0 forks

1 files

Last active 1 week 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;

capitalex / email-archives.factor

0 likes

0 forks

1 files

Last active 1 week ago

1	! Copyright (C) 2026 CapitalEx.
2	! See https://factorcode.org/license.txt for BSD license.
3	USING: assocs calendar calendar.format concurrency.combinators
4	io.encodings.utf8 io.files kernel make math.parser sequences
5	splitting unicode ;
6	IN: email-archives
7
8	: post-date ( json -- ymdhms )
9	"postDate" of dup [ dec> unix-time>timestamp timestamp>ymdhms ] [ drop "[DATE MISSING]" ] if ;

june / Objects

0 likes

0 forks

1 files

Last active 3 weeks ago

An example of objects.

1	\|\|'@include' (https://gist.casuallyblue.dev/wryl/d3c64c1df98e48cbaff3b3dcdc189e3f/raw/HEAD/map.nv lib/rpn.nv)
2
3	\|::(/* */)\|
4	\|::(/* $x)\| :: /*
5	\|\|::(
6	/* Now we can add comments to what we are doing. */
7	/*
8	.. but maybe not too many?
9	*/
10	)

capitalex / DOESNT Fibonacci

0 likes

0 forks

1 files

Last active 4 weeks ago

An implementation of the fibonacci in DOESNT by Floozutter

1	give a < > b
2	unless
3	[ , b , c , < , > , ]
4	, a a !! , a c !! , a < !! , a ] !!
5	, a b b , a b ] ;
6
7	give < c b
8	unless
9	[ , b , c , < , > , ]
10	, a a !! , a b !! , a c !! , a ] !!

capitalex / coroutines.ml

0 likes

0 forks

1 files

Last active 1 month ago

1	open Effect
2	open Effect.Deep
3
4	type _ Effect.t += Yield : unit t
5
6	type status =
7	\| Complete
8	\| Suspended of (unit, status) continuation
9
10	let start (f : unit -> unit) : status =

june / Tiling WM Draft

0 likes

0 forks

1 files

Last active 1 month ago

The start of a tiling WM.

1	\|:: focus on node $n :focus: $\|
2	:: ensure node $n exists
3	:focus: $n
4	\|:: focus on node $n\|
5	:: ensure node $n exists
6	:focus: $n
7
8	\|\|:nodes: root horizontal
9	\|:: create a node under root :unique ID: $x?\|
10	:: go to the next unique ID

mary / scheduler.nv

0 likes

0 forks

1 files

Last active 1 month ago

1	\|:#############: Scheduler input and config :#############: \|
2
3	\|\| :cycle size: 10
4
5	\|\|
6	:: Start from 0 and step by 1000 milliseconds
7	:schedule: Task1 for 1
8	:schedule: Task2 for 2
9	:schedule: Task3 for 3
10	:schedule: ThreeSecondTask for 3

Newer Older

Powered by Opengist ⋅ Load: 230ms⋅

English