\ mono_parser+
\
\ class of mono.parser that records note on time in separate dimension.
\
\ Code: Han-earl Park
\ Copyright	2000 Buster & Friends C-ALTO Labs
\ (Southampton, November 2000 -
\
\ MOD: HeP 11/01/00	Started project.
\ MOD: HeP 11/07/00	RAW.OFF: temporarily decrements iv-prsr-current-elm
\					before calling ELEMENT.ON:
\
\ ToDo:	Need time out feature. Notes should be allowed to "fade out"!

include?  task-mono_parser  myt:mono_parser


anew task-mono_parser+


3  constant  parser_ontime_dim#


:class  OB.MONO.PARSER+  <super  OB.MONO.PARSER
	
	
:m DIMENSION:	(  -- #dim , for time, pitch, volume & ontime )
	4
;m


\ record ontime

: PRSR.RECORD.ONTIME	(  --  )
	self time: []
	iv-prsr-current-elm  self get.dur.dim: []  iv-prsr-shape ed.at: []
	-
	iv-prsr-current-elm  parser_ontime_dim#    iv-prsr-shape ed.to: []
;

:m RAW.OFF:	( cents vol ontime --  )
	2drop drop
	iv-prsr-current-elm
	IF
		-1 iv+> iv-prsr-current-elm		\ temporarily decrement element#
	\
		prsr.record.ontime
		element.off: self
	\
		 1 iv+> iv-prsr-current-elm		\ restore element#
	THEN
;m


\ on & off event

:m TONE.ON:		( cents vol --  )
	0  		\ dummy ontime
	ON: self
;m

:m TONE.OFF:	( cents vol --  )
	0		\ dummy ontime
	OFF: self
;m

;class