Все фрагменты от june

june / A small graphical example of Nova.

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 8 months ago

A small Nova program to draw the trans pride flag in the playground.

1	\|\|
2	:: create a 400 by 400 canvas
3	:: draw the trans pride flag
4
5	\|:: draw the trans pride flag\|
6	:: clear the canvas to black
7	:: draw a 360 by 360 lightblue rectangle at 20 20
8	:: draw a 360 by 250 pink rectangle at 20 80
9	:: draw a 360 by 100 white rectangle at 20 150

june / progress-pride-flag.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 8 months ago • Форки с sierra/progress-pride-flag.nv

1	\|\|
2	:: create a 400 by 400 canvas
3	:: draw the trans pride flag
4
5	\|:: draw the trans pride flag\|
6	:: clear the canvas to black
7	:: draw a 360 by 360 lightblue rectangle at 20 20
8	:: draw a 360 by 250 pink rectangle at 20 80
9	:: draw a 360 by 100 white rectangle at 20 150
10	:: draw a black triangle at 20 20 20 380 200 200

june / A MIDI Sequencer

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 9 months ago

This is a MIDI sequencer supporting variable-length channels.

1	\|:@math: $x :@math: $op $y\| :@math: $op $x $y
2
3	\|:note: C \| :note number: 0
4	\|:note: C#\| :note number: 1
5	\|:note: Db\| :note number: 1
6	\|:note: D \| :note number: 2
7	\|:note: D#\| :note number: 3
8	\|:note: Eb\| :note number: 3
9	\|:note: E \| :note number: 4
10	\|:note: F \| :note number: 5

june / Viznut.

0 лайк(-ов)

0 форк(-ов)

3 файл(-ов)

Последняя активность 9 months ago

This is a full implementation of a Viznut pattern generator, including a small windowing framework and a full stack machine DSL.

1	\|:push: :: $x\|
2	:: push $x
3	\|:push:\|
4
5	\|:set: :: $name :data: $value\|
6	:: set $name $value
7	\|:set: :: $name\|
8	:error: stack underflow
9
10	\|:get: :: $name\|

june / A Stack

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

A stack, implemented in string rewrite rules.

1	Spawn the stack and the reading head.
2	start -> ()\|
3
4	Handle a push.
5	Continually push symbols until you run into another instruction.
6	If you can't push any more symbols, and a push is pending, push a separator.
7	)\|push1 -> 1)\|push
8	)\|push; -> ;)\|
9
10	Handle a drop.

june / Pen Plotter

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

A pen plotter in string rewriting.

1	Handle a horizontal move.
2	Handle a left move.
3	Switch to state 'L'.
4	\|l -> OL
5	Skip over the instruction stream, cells, inactive cursors and separators.
6	Ll -> lL
7	Lr -> rL
8	Lu -> uL
9	Ld -> dL
10	L. -> .L

june / Makermod Elements V2

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	//{[(<Element script V2>)]}
2	mmarkfoot
3	say ^0ELEMENT SCRIPT V2 ^5By ^1µ^2/^0Ðàrk^1Qµàkè^2/^1S
4	wait 120
5	say ^6I call the four ^3elements: ^1Fire, ^5Air, ^4Water ^6and ^2Earth ^6to fight along side me!
6	marm 0
7	mplacefx ships/fire 1;mgrab
8	mplacefx howler/sonic 1;mgrab
9	mplacefx env/water_impact 1;mgrab
10	mplacefx env/quake_small 1;mgrab

june / Drawing A Box

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

A small box drawing program, driven by a pen plotter DSL.

1	\|u \| up
2	\|d \| down
3	\|l \| left
4	\|r \| right
5	\|f \| forward
6	\|tl \| turn left
7	\|tr \| turn right
8	\|uu \| u,u
9	\|dd \| d,d
10	\|ll \| l,l

june / ALU Port

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

An implementation of an ALU port, implementing addition and subtraction.

1	\|=================================================\|
2	\|#\| start exhaustive
3	\|@alu-accept-operation, @alu-op, @alu-subtract:max\| @alu-invalid-operation
4	\|@alu-accept-operation, @alu-op, @alu-add:max \| @alu-accept-operation, @alu-clear-out:max, @alu-subtract:max
5	\|@alu-accept-operation, @alu-op \| @alu-accept-operation, @alu-clear-out:max, @alu-add:max
6
7	\|#\| constant, @alu-clear-out, 4294967295
8	\|@alu-clear-out:max\| @alu-clear-out:4294967295
9
10	\|#\| constant, @alu-add, 4294967295

june / gist:21596a68a7654ad39e0e289b0541639c

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	\|------------------------------------------------------\|
2	\|#\| constant, @resolution-x, 400
3	\|#\| constant, @resolution-y, 400
4	\|\|window, @resolution-x:400, @resolution-y:400, display
5	\|window\| @set-resolution
6
7	\|#\| constant, Loop x, 400
8	\|#\| constant, Loop y, 400
9	\|#\| constant, x->p, 400
10	\|#\| constant, y->p, 400

1	\|:@math: $x :@math: $op $y\| :@math: $op $x $y
2
3	\|:note: C \| :note number: 0
4	\|:note: C#\| :note number: 1
5	\|:note: Db\| :note number: 1
6	\|:note: D \| :note number: 2
7	\|:note: D#\| :note number: 3
8	\|:note: Eb\| :note number: 3
9	\|:note: E \| :note number: 4
10	\|:note: F \| :note number: 5

1	\|:push: :: $x\|
2	:: push $x
3	\|:push:\|
4
5	\|:set: :: $name :data: $value\|
6	:: set $name $value
7	\|:set: :: $name\|
8	:error: stack underflow
9
10	\|:get: :: $name\|

1	\|u \| up
2	\|d \| down
3	\|l \| left
4	\|r \| right
5	\|f \| forward
6	\|tl \| turn left
7	\|tr \| turn right
8	\|uu \| u,u
9	\|dd \| d,d
10	\|ll \| l,l

1	\|=================================================\|
2	\|#\| start exhaustive
3	\|@alu-accept-operation, @alu-op, @alu-subtract:max\| @alu-invalid-operation
4	\|@alu-accept-operation, @alu-op, @alu-add:max \| @alu-accept-operation, @alu-clear-out:max, @alu-subtract:max
5	\|@alu-accept-operation, @alu-op \| @alu-accept-operation, @alu-clear-out:max, @alu-add:max
6
7	\|#\| constant, @alu-clear-out, 4294967295
8	\|@alu-clear-out:max\| @alu-clear-out:4294967295
9
10	\|#\| constant, @alu-add, 4294967295

1	\|------------------------------------------------------\|
2	\|#\| constant, @resolution-x, 400
3	\|#\| constant, @resolution-y, 400
4	\|\|window, @resolution-x:400, @resolution-y:400, display
5	\|window\| @set-resolution
6
7	\|#\| constant, Loop x, 400
8	\|#\| constant, Loop y, 400
9	\|#\| constant, x->p, 400
10	\|#\| constant, y->p, 400