
alias print doNothing

if $arg1 = "copy"

	globalVariable g_songCopied $songName
	globalVariable g_nbTracks $nbTracks
	
	print [ $g_songCopied ]
	
	for i 1 $g_nbTracks
		
		variable g_srcTrackN g_srcTrackN & $i
		variable g_srcTrackV g_srcTrackV & $i
		variable trackName trackName & $i
		globalVariable $g_srcTrackN $$trackName
		getTrackVolume volume $i
		globalVariable $g_srcTrackV $volume
		
		print trackName $trackName $$trackName
		print g_srcTrackN $g_srcTrackN $$g_srcTrackN
		print g_srcTrackV $g_srcTrackV $$g_srcTrackV
		
	endFor

endIf

if  $arg1 = "paste"

	print "Will copy volume from " $g_songCopied :  $g_nbTracks tracks
	
	for i 1 $g_nbTracks
		
		variable g_srcTrackN g_srcTrackN & $i
		variable g_srcTrackV g_srcTrackV & $i
		
		print $$g_srcTrackN $$g_srcTrackV
		
		setTrackVolume $$g_srcTrackN $$g_srcTrackV
		
	endFor

endIf