~rabbits/orca-toy

712554f299c72965c75b2a0d36a7c6c2f7a31faf — Devine Lu Linvega 22 days ago 801d6b7
Moved docs lut to assets
3 files changed, 41 insertions(+), 42 deletions(-)

M src/assets.tal
M src/library.tal
M src/orca.tal
M src/assets.tal => src/assets.tal +40 -32
@@ 1,7 1,15 @@
(
@|tables )

@notes
@docs-lut [
	=op-a =op-b =op-c =op-d =op-e =op-f =op-g =op-h
	=op-i =op-j =op-k =op-l =op-m =op-n =op-o =op-p
	=op-q =op-r =op-s =op-t =op-u =op-v =op-w =op-x
	=op-y =op-z
	=op-bang =op-comment =op-synth
	=op-midi =op-pitch =op-byte =op-self ]

@notes [
	( lc )
	00 00 00 00 00 00 00 00
	00 00


@@ 15,9 23,9 @@
	09 0b 00 02 04 05 07 09
	0b 0c 0e 10 11 13 15 17
	18 1a 1c 1d 1f 21 23 24
	26 28
	26 28 ]

@values ( char to b36 )
@values ( char to b36 ) [
	00 00 00 00 00 00 00 00
	00 00 00 00 00 00 00 00
	00 01 02 03 04 05 06 07


@@ 29,14 37,14 @@
	00 0a 0b 0c 0d 0e 0f 10
	11 12 13 14 15 16 17 18
	19 1a 1b 1c 1d 1e 1f 20
	21 22 23 00 00 00 00 00
	21 22 23 00 00 00 00 00 ]

@b36clc ( b36 to char-lc )
@b36clc ( b36 to char-lc ) [
	30 31 32 33 34 35 36 37
	38 39 61 62 63 64 65 66
	67 68 69 6a 6b 6c 6d 6e
	6f 70 71 72 73 74 75 76
	77 78 79 7a
	77 78 79 7a ]

@cell-styles
	02 ( 0 normal )


@@ 149,21 157,21 @@
(
@|spritesheet )

@cursor-icn
	80c0 e0f0 f8e0 1000 0000 0000 0000 0000
@selector-icn
@cursor-icn [
	80c0 e0f0 f8e0 1000 0000 0000 0000 0000 ]
@selector-icn [
	0000 0018 1818 187e 1818 1818 0000 0000
	0000 007e 1818 1818 1818 187e 0000 0000
@beat-icn
	0000 0000 0038 7c7c 7c38 0000 0000 0000
@save-icn
	0000 0018 183c 3c7e 7e3c 3c18 1800 0000
@help-icn
	0000 007e 1818 1818 1818 187e 0000 0000 ]
@beat-icn [
	0000 0000 0038 7c7c 7c38 0000 0000 0000 ]
@save-icn [
	0000 0018 183c 3c7e 7e3c 3c18 1800 0000 ]
@help-icn [
	0000 0000 0000 0000 8244 3800 0000 0000
	0000 0000 0000 3844 9228 1000 0000 0000
@underline-icn
	0000 0000 0000 0000 0000 0000 0000 00ff
@meter-icn
	0000 0000 0000 3844 9228 1000 0000 0000 ]
@underline-icn [ 
	0000 0000 0000 0000 0000 0000 0000 00ff ]
@meter-icn [
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 00ff 0000
	0000 0000 0000 0000 0000 00ff 00ff 0000


@@ 172,9 180,9 @@
	0000 0000 00ff 00ff 00ff 00ff 00ff 0000
	0000 00ff 00ff 00ff 00ff 00ff 00ff 0000
	00ff 00ff 00ff 00ff 00ff 00ff 00ff 0000
	007c fefe feee c682 c6ee fefe fefe 7c00
	007c fefe feee c682 c6ee fefe fefe 7c00 ]

@sin-pcm
@sin-pcm [
	8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad
	b0b3 b6b9 bbbe c1c3 c6c9 cbce d0d2 d5d7
	d9db dee0 e2e4 e6e7 e9eb ecee f0f1 f2f4


@@ 190,9 198,9 @@
	0102 0202 0202 0303 0405 0506 0708 090a
	0b0c 0e0f 1012 1415 1719 1a1c 1e20 2225
	2729 2b2e 3032 3537 3a3d 3f42 4547 4a4d
	5053 5659 5c5f 6265 686b 6e71 7477 7a7d
	5053 5659 5c5f 6265 686b 6e71 7477 7a7d ]

@tri-pcm
@tri-pcm [
	8082 8486 888a 8c8e 9092 9496 989a 9c9e
	a0a2 a4a6 a8aa acae b0b2 b4b6 b8ba bcbe
	c0c2 c4c6 c8ca ccce d0d2 d4d6 d8da dcde


@@ 208,9 216,9 @@
	0103 0507 090b 0d0f 1113 1517 191b 1d1f
	2123 2527 292b 2d2f 3133 3537 393b 3d3f
	4143 4547 494b 4d4f 5153 5557 595b 5d5f
	6163 6567 696b 6d6f 7173 7577 797b 7d7f
	6163 6567 696b 6d6f 7173 7577 797b 7d7f ]

@saw-pcm
@saw-pcm [
	8282 8183 8384 8685 8888 8889 8a8b 8c8c
	8e8e 8f90 9092 9193 9494 9596 9699 9899
	9b9a 9c9c 9c9d 9ea0 a1a0 a2a2 a3a5 a4a6


@@ 226,9 234,9 @@
	4e4e 4f50 5052 5252 5554 5557 5759 5959
	5b5b 5c5d 5d5f 5e60 6160 6264 6365 6566
	6867 6969 6a6c 6c6d 6d6e 706f 7071 7174
	7475 7576 7777 797a 7a7c 7b7c 7e7d 7f7f
	7475 7576 7777 797a 7a7c 7b7c 7e7d 7f7f ]

@sqr-pcm
@sqr-pcm [
	ffff ffff ffff ffff ffff ffff ffff ffff
	ffff ffff ffff ffff ffff ffff ffff ffff
	ffff ffff ffff ffff ffff ffff ffff ffff


@@ 244,7 252,7 @@
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 0000 ]

@font ( orca.816 )
0000 0000 0000 0000 0000 0000 0000 0000


@@ 344,15 352,15 @@
0000 0000 0000 60b2 1c00 0000 0000 0000
0000 0000 0000 0000 1818 6666 1818 0000

@appicon
@appicon [
0000 0000 0000 0000 0000 0000 0001 0100 0007 0f0f 0fcf ce6d 070f 1f1f dfff ffff
0080 8080 8000 00c0 80c0 c0c0 c080 c0e0 0000 0000 0107 0f0f 0000 0001 0608 1011
7f38 2000 feff ffff ff7f 78fe 0100 f0f8 c000 0000 0080 c0c0 e0c0 0000 8040 2020
0f0f 0f07 0300 0000 1111 1108 0403 0000 ffff ffff fffc 1000 9898 f8f0 0003 ec10
c0c0 c080 0000 0000 2020 2040 8000 0000
c0c0 c080 0000 0000 2020 2040 8000 0000 ]

@data
@data [
	&cells $4000
	&locks $4000
	&types $4000
	&types $4000 ]


M src/library.tal => src/library.tal +0 -9
@@ 1,12 1,3 @@
@op-table
	&docs [
	=op-a =op-b =op-c =op-d =op-e =op-f =op-g =op-h
	=op-i =op-j =op-k =op-l =op-m =op-n =op-o =op-p
	=op-q =op-r =op-s =op-t =op-u =op-v =op-w =op-x
	=op-y =op-z
	=op-bang =op-comment =op-synth
	=op-midi =op-pitch =op-byte =op-self ]

(
@|core )


M src/orca.tal => src/orca.tal +1 -1
@@ 842,7 842,7 @@ JMP2r
		( x ) DUP2 #84 SFT2 .grid/x1 LDZ2 ADD2 #0020 ADD2 .Screen/x DEO2
		( y ) DUP2 #000f AND2 #40 SFT2 .grid/y1 LDZ2 ADD2 #0020 ADD2 .Screen/y DEO2
		.Screen/y DEI2 .grid/y2 LDZ2 #0030 SUB2 GTH2 ?&skip
		DUP2k ADD2 ;op-table/docs ADD2 LDA2
		DUP2k ADD2 ;docs-lut ADD2 LDA2
		( glyph )
			LDAk #0c draw-chr-color
		( space )