d6
/
kodiak
mirror of https://git.phial.org/d6/kodiak.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove debugging

This commit is contained in:
d_m 2024-08-03 00:45:44 -04:00
parent cf790de191
commit 453880fcc4
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
kodiak.tal
View File

@ -92,7 +92,7 @@
#0231 #0580 ;triangle #0004 #75 .Audio3 setup-audio
#011f #00b0 ;noise #0200 #44 .Audio4 setup-audio
( start-audio )
start-audio
reset BRK
@setup-audio ( adsr* sample* slen* dur* vol^ dev^ -> )
@ -288,7 +288,6 @@
#00 !maybe-draw-c ( )
@draw-waste ( -> )
#010e DEO
#001c ,&x STR2 ( ; x0<-28 )
.waste #18 OVR ADD SWP ( waste+24^ waste^ )
&loop LDZk DUP ?&ok !&done ( lim^ zp^ c^ )
@ -470,7 +469,6 @@
.audio/pos STZ2 JMP2r ( )
@on-audio ( -> brk )
( #010e DEO )
.audio LDZ ?{ BRK } play-audio BRK
@on-refresh ( -> brk )
@ -704,7 +702,7 @@
EQUk ?&done #01 SUB INCr ( root^ src-2^ [dst+2] )
LDZk #40 EOR STHkr STZ #00 OVR STZ ( root^ src-2^ [dst+2^] ; dst+2<-src-2, src-2<-0 )
&done POP2 POPr ( #010e DEO #0a18 DEO ) JMP2r ( )
&done POP2 POPr JMP2r ( )
@maybe-select-stock ( -> bool^ )
.Mouse/x DEI2 #0008 LTH2 ?&no ( ; x<8 )