local
   MyNote = {Score.makeScore note(startTime:0
				  duration:4
				  timeUnit:beats
				  pitch:61
				  pitchUnit:midi
				  amplitude:64
			       amplitudeUnit:velocity)
	     unit}
in
   {Out.renderAndShowLilypond MyNote unit}
end


/*
%% tmp stuff
%% Why does Csound and Midi output not work??

{Browse {MyNote toInitRecord($)}}

{MyNote toFullRecord($)}

%% no reaction??
{Out.renderAndPlayCsound MyNote unit}

{Out.renderAndPlayCsound MyNote
 unit(file:"test"
      orc:{Init.getStrasheelaEnv defaultOrcFile}
      orcDir:{Init.getStrasheelaEnv defaultCsoundOrcDir}
      scoDir:{Init.getStrasheelaEnv defaultCsoundScoDir}
      soundDir:{Init.getStrasheelaEnv defaultSoundDir})}


{Out.midi.renderAndPlayMidiFile MyNote
 unit(file:"test"
      %% !! this should be set by OZRC..
      csvmidi:{Init.getStrasheelaEnv csvmidi} 
      csvDir:{Init.getStrasheelaEnv defaultCSVDir}
      midiDir:{Init.getStrasheelaEnv defaultMidiDir})}

{Out.midi.outputMidiFile MyNote unit}


{Out.midi.scoreToEvents_Midi MyNote
 [isNote#fun {$ MyNote}
	    Track = 2 % fixed track
	    StartTime = {Out.midi.beatsToTicks
			 {MyNote getStartTimeInSeconds($)}}
	    EndTime = {Out.midi.beatsToTicks
		       {MyNote getEndTimeInSeconds($)}}
	    Channel = if {Out.midi.isMidiNoteMixin MyNote}
		      then {MyNote getChannel($)}
			 %% default for all other notes
		      else 0
		      end
	    Pitch = {FloatToInt {MyNote getPitchInMidi($)}}
	    Velocity = {FloatToInt {MyNote getAmplitudeInVelocity($)}}
	 in
	    [{Out.midi.makeNoteOn Track StartTime Channel Pitch Velocity}
	     {Out.midi.makeNoteOff Track EndTime Channel Pitch 0}]
	 end]
 unit}

{fun {$ MyNote}
	    Track = 2 % fixed track
	    StartTime = {Out.midi.beatsToTicks
			 {MyNote getStartTimeInSeconds($)}}
	    EndTime = {Out.midi.beatsToTicks
		       {MyNote getEndTimeInSeconds($)}}
	    Channel = if {Out.midi.isMidiNoteMixin MyNote}
		      then {MyNote getChannel($)}
			 %% default for all other notes
		      else 0
		      end
	    Pitch = {FloatToInt {MyNote getPitchInMidi($)}}
	    Velocity = {FloatToInt {MyNote getAmplitudeInVelocity($)}}
	 in
	    [{Out.midi.makeNoteOn Track StartTime Channel Pitch Velocity}
	     {Out.midi.makeNoteOff Track EndTime Channel Pitch 0}]
 end
 MyNote}
*/