Browse code
Improved UV
neauoire authored on 28/04/2021 19:11:05
Showing 1 changed files
| ... | ... |
@@ -107,10 +107,18 @@ BRK |
| 107 | 107 |
|
| 108 | 108 |
@on-frame ( -> ) |
| 109 | 109 |
|
| 110 |
- .wave-view/x1 PEK2 #0028 ADD2 .Screen/x DEO2 |
|
| 111 |
- .wave-view/y1 PEK2 #0010 SUB2 .Screen/y DEO2 |
|
| 112 |
- .Audio0/output DEI #04 SFT TOS #0008 MUL2 ;meter ADD2 .Screen/addr DEO2 |
|
| 113 |
- #21 .Screen/color DEO |
|
| 110 |
+ .adsr-view/y2 PEK2 #0020 SUB2 .Screen/y DEO2 |
|
| 111 |
+ |
|
| 112 |
+ #00 #10 |
|
| 113 |
+ &loop |
|
| 114 |
+ .adsr-view/x2 PEK2 #003a SUB2 .Screen/x DEO2 |
|
| 115 |
+ OVR #10 SWP SUB .Audio0/output DEI #0f AND LTH .Screen/color DEO |
|
| 116 |
+ .adsr-view/x2 PEK2 #003a SUB2 #0002 ADD2 .Screen/x DEO2 |
|
| 117 |
+ OVR #10 SWP SUB .Audio0/output DEI #04 SFT LTH .Screen/color DEO |
|
| 118 |
+ .Screen/y DEI2 #0002 ADD2 .Screen/y DEO2 |
|
| 119 |
+ ( incr ) SWP #01 ADD SWP |
|
| 120 |
+ DUP2 LTH ,&loop JNZ |
|
| 121 |
+ POP2 |
|
| 114 | 122 |
|
| 115 | 123 |
BRK |
| 116 | 124 |
|
| ... | ... |
@@ -496,24 +504,6 @@ RTN |
| 496 | 504 |
07 06 05 03 02 01 00 00 |
| 497 | 505 |
00 00 01 02 03 05 06 07 ] |
| 498 | 506 |
|
| 499 |
-@meter [ |
|
| 500 |
- 0000 0000 0000 0000 |
|
| 501 |
- 0000 0000 0000 0070 |
|
| 502 |
- 0000 0000 0000 007e |
|
| 503 |
- 0000 0000 0000 707e |
|
| 504 |
- 0000 0000 0070 7e7e |
|
| 505 |
- 0000 0000 007e 7e7e |
|
| 506 |
- 0000 0000 707e 7e7e |
|
| 507 |
- 0000 0000 7e7e 7e7e |
|
| 508 |
- 0000 0070 7e7e 7e7e |
|
| 509 |
- 0000 007e 7e7e 7e7e |
|
| 510 |
- 0000 707e 7e7e 7e7e |
|
| 511 |
- 0000 7e7e 7e7e 7e7e |
|
| 512 |
- 0070 7e7e 7e7e 7e7e |
|
| 513 |
- 007e 7e7e 7e7e 7e7e |
|
| 514 |
- 707e 7e7e 7e7e 7e7e |
|
| 515 |
- 7e7e 7e7e 7e7e 7e7e ] |
|
| 516 |
- |
|
| 517 | 507 |
@font-hex ( 0-F ) |
| 518 | 508 |
[ |
| 519 | 509 |
007c 8282 8282 827c 0030 1010 1010 1010 |