Jump to content

User:Bulek: Difference between revisions

From LinuxMCE
← Previous diffNext diff →
Alx9r (talk | contribs)
516 edits
No edit summary
No edit summary
Line 1: Line 1:
<pre><nowiki>
<pre><nowiki>
Power
Power
#193 Off
#193 Off
SendMultiZoneCommand(cmd, ["@PWR:1", "@MSP:1", "@MAM:2"]) #SendMultiZoneCommand(cmd, ["@AMT:2", "@MSP:1", "@MAM:2"])
#SendMultiZoneCommand(cmd, ["@PWR:1", "@MSP:1", "@MAM:2"]) SendMultiZonePowerOffCommand(cmd, ["@AMT:2", "@MSP:1", "@MAM:2"])


#192 On
#192 On
SendMultiZoneCommand(cmd, ["@PWR:2", "@MSP:2", "@MAM:1"]) #SendMultiZoneCommand(cmd, ["@AMT:1", "@MSP:2", "@MAM:1"])
#SendMultiZoneCommand(cmd, ["@PWR:2", "@MSP:2", "@MAM:1"]) SendMultiZonePowerOnCommand(cmd, ["@AMT:1", "@MSP:2", "@MAM:1"])
 
#194 Toggle Power


Inputs
Inputs
#169 AM
SendMultiZoneCommand(cmd, ["@SRC:H", "@MSC:H", "@MSC:H"])
#164 Aux
#164 Aux
SendMultiZoneCommand(cmd, ["@SRC:9", "@MSC:9", "@MSC:9"])
SendMultiZoneCommand(cmd, ["@SRC:9", "@MSC:9", "@MSC:9"])
Line 47: Line 47:
#891 All Ch Stereo
#891 All Ch Stereo
#<$"@SUR:0H\r"$> SendIrCommand("@SUR:0H")
#<$"@SUR:0H\r"$> SendIrCommand("@SUR:0H")
Disk Handle
#48 Eject Disk
General
#190 Enter/Go


Internal
Internal
#373 Private Method Listing
#373 Private Method Listing
def ReceiveReportCommand() buff = conn_.RecvDelimited("\r", 1000) print "Cmd response from Marantz: " + buff + "\n" log("Cmd response from Marantz: " + buff + "\n") end def SendIrCommand(command) conn_.Send(command+ "\r") log("Sending Command: " + command + "\n") ReceiveReportCommand() end def log(word) logTime = Time.now timeStr = logTime.strftime("%d-%m-%Y %H:%M:%S ") print( timeStr + " " + word) if( $logFile.nil? == false ) then $logFile.print( timeStr + " " + word ) $logFile.flush() end end def SendMultiZoneCommand(cmd, commandsArray, commandParam="") log("Got Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n") zone = GetZone(cmd.devidto_) if( zone >= 0 and zone < commandsArray.size ) log("Determine zone for command : " + zone.to_s + "\n") SendIrCommand(commandsArray[zone] + commandParam.to_s) else log("SendMultiZoneCommand: invalid zone " + zone.to_s) end end def GetZone(deviceDestination) if( device_.mapDevice_PortChannel_.has_key?(deviceDestination) and device_.mapDevice_PortChannel_[deviceDestination] != nil and !device_.mapDevice_PortChannel_[deviceDestination].empty? ) return device_.mapDevice_PortChannel_[deviceDestination].to_i end return 0 end def ShowZones() log("####### Dev 2 PortChanel") device_.mapDevice_PortChannel_.each do |key, value| log(key.to_s + " => " + value.to_s) end log("======= PortChanel 2 Dev") device_.mapPortChannel_Device_.each do |key, value| log(key.to_s + " => " + value.to_s) end end
def ReceiveReportCommand() buff = conn_.RecvDelimited("\r", 1000) log("Cmd response from Marantz: " + buff + "\n") end def SendIrCommand(command) log("SendIrCommand: " + command + "\n") conn_.Send(command+ "\r") log("Sending Command: " + command + "\n") ReceiveReportCommand() end def log_older(word) logTime = Time.now timeStr = logTime.strftime("%d-%m-%Y %H:%M:%S ") print( timeStr + " " + word) if( $logFile.nil? == false ) then $logFile.print( timeStr + " " + word ) $logFile.flush() end end def log(line) # $log = File.open("/var/log/pluto/" + device_.devid_.to_s + "_Generic_Serial_Device.log", "a") $log = File.open("/var/log/pluto/Marantz_SR5600.log", "a") logTime = Time.now timeStr = logTime.strftime("%d-%m-%Y %H:%M:%S ") $log.puts timeStr + "(***):" + line.to_s $log.close end def SendMultiZoneCommand(cmd, commandsArray, commandParam="") log("Got Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n") zone = GetZone(cmd.devidto_) if( zone >= 0 and zone < commandsArray.size ) zone_desc=device_.childdevices_[cmd.devidto_].devdata_[186] log("Determine zone for command : " + zone_desc + "[" + zone.to_s + "]\n") SendIrCommand(commandsArray[zone] + commandParam.to_s) else log("SendMultiZoneCommand: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end end def SendMultiZonePowerOnCommand(cmd, commandsArray, commandParam="") #It will Unmute Zone first and then see also global power should be turned on... log("Got Power On Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n") zone = GetZone(cmd.devidto_) if( zone >= 0 and zone < commandsArray.size ) zone_desc=device_.childdevices_[cmd.devidto_].devdata_[186] log("Determine zone for command : " + zone_desc + "[" + zone.to_s + "]\n") SendIrCommand(commandsArray[zone] + commandParam.to_s) $ZoneStatus[zone.to_s] = 'ON' log("*** Setting zone : " + zone_desc + "[" + zone.to_s + "] to ON\n") ShowZones() if ($DevicePower == 0) SendIrCommand("@PWR:2") end $DevicePower = 1 elsif (zone == -1) if ($DevicePower == 0) SendIrCommand("@PWR:2") end $DevicePower = 1 log("####### Powering device On\n") else log("SendMultiZonePowerOnCommand: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end end def SendMultiZonePowerOffCommand(cmd, commandsArray, commandParam="") #It will Mute Zone first and then see if also global power can be turned off... log("Got Power Off Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n") zone = GetZone(cmd.devidto_) if( zone >= 0 and zone < commandsArray.size ) zone_desc=device_.childdevices_[cmd.devidto_].devdata_[186] log("Determine zone for command : " + zone_desc + "[" + zone.to_s + "]\n") SendIrCommand(commandsArray[zone] + commandParam.to_s) $ZoneStatus[zone.to_s] = 'OFF' log("*** Setting zone : " + zone_desc + "[" + zone.to_s + "] to OFF\n") ShowZones() if (($ZoneStatus["0"] == 'OFF') and ($ZoneStatus["1"] == 'OFF') and ($ZoneStatus["2"] == 'OFF')) SendIrCommand("@PWR:1") $DevicePower = 0 log("####### All zones are muted - device is powered Off\n") end else log("SendMultiZonePowerOffCommand: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end end def GetZone(deviceDestination) if( device_.mapDevice_PortChannel_.has_key?(deviceDestination) and device_.mapDevice_PortChannel_[deviceDestination] != nil and !device_.mapDevice_PortChannel_[deviceDestination].empty? ) return device_.mapDevice_PortChannel_[deviceDestination].to_i end return -1 end def ShowZonesDebug() log("####### Dev 2 PortChanel\n") device_.mapDevice_PortChannel_.each do |key, value| log(key.to_s + " => " + value.to_s + "\n") end log("======= PortChanel 2 Dev\n") device_.mapPortChannel_Device_.each do |key, value| log(key.to_s + " => " + value.to_s+ "\n") end end def ShowZonesInitialVolumes() log("####### Show Initial Volume Levels for zones\n") device_.mapDevice_PortChannel_.each do |key, value| volume = device_.childdevices_[key].devdata_[208] log("Zone " + value.to_s + " => " + volume.to_s + "\n") SetVolumeInZone(volume,value) end end def ShowZones() temp = "####### Zones Status : " device_.mapDevice_PortChannel_.each do |key, value| temp = temp + " | Zone " + value.to_s + " => " + $ZoneStatus[value] end temp = temp + "\n" log(temp) end def SetZones(state) log("####### Setting all zones to " + state + "\n") device_.mapDevice_PortChannel_.each do |key, value| $ZoneStatus[value] = state log("Zone " + value.to_s + " => " + state + "\n") end end def InitZones() log("####### Initializing all zones to OFF\n") device_.mapDevice_PortChannel_.each do |key, value| $ZoneStatus[value] = 'OFF' log("Zone " + value.to_s + " => " + $ZoneStatus[value] + "\n") end log("####### Print $ZoneStatus Hash:\n") $ZoneStatus.each do |key, value| log("Zone " + key.to_s + " => " + value.to_s + "\n") end end def SetVolumeInZone(level,zone) # Sets Normalized Volume Level (0..100) in certain zone log("SetVolumeInZone: volume: " + level.to_s + " => Zone: " + zone + "\n") if ( zone == "0") log("SetVolumeInZone0: volume: " + level.to_s + " => Zone: " + zone + "\n") new_level = DeNormalizeVolume_MainZone(level.to_i) log("SetVolumeInZone00: volume: " + level.to_s + " => Zone: " + zone + "\n") temp_str="@VOL:0"+new_level.to_s; log("SetVolumeInZone: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) elsif ( zone == "1") log("SetVolumeInZone1: volume: " + level.to_s + " => Zone: " + zone + "\n") new_level = DeNormalizeVolume_OtherZone(level.to_i) log("SetVolumeInZone11: volume: " + level.to_s + " => Zone: " + zone + "\n") temp_str="@MSV:0"+new_level.to_s; log("SetVolumeInZone: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) elsif ( zone == "2") log("SetVolumeInZone2: volume: " + level.to_s + " => Zone: " + zone + "\n") new_level = DeNormalizeVolume_OtherZone(level.to_i) # log("SetVolumeInZone22: volume: " + level + " => Zone: " + zone + "\n") temp_str="@MVL:0"+new_level.to_s; log("SetVolumeInZone: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) else log("SetVolumeInZone: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end log("SetVolumeInZone End: volume: " + level.to_s + " => Zone: " + zone + "\n") end def NormalizeVolume_MainZone(level) # Normalizes Marantz Volume Level (-99..+10) to 0-100 boundaries for Main Zone temp = (level+100)/110.0*100.0 log("Normalizing Main Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end def NormalizeVolume_OtherZone(level) # Normalizes Marantz Volume Level to 0-100 boundaries for Second Zone (-90..0) temp = ((level+90.0)/90.0)*100.0 log("Normalizing Other Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end def DeNormalizeVolume_MainZone(level) # DeNormalizes volume level in 0-100 boundaries to Marantz Volume Level (-99..+10) for Main Zone temp = (level/100.0)*110.0-99 log("DeNormalizing Main Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end def DeNormalizeVolume_OtherZone(level) # DeNormalizes volume level in 0-100 boundaries to Marantz Volume Level (-90..0) for Other Zone temp = ((level/100.0)*90.0)-90.0 log("DeNormalizing Other Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end


#351 Process IDLE
#351 Process IDLE
#ShowZonesDebug() ShowZones()


#350 Process Incoming Data
#350 Process Incoming Data
Line 67: Line 59:


#355 Process Initialize
#355 Process Initialize
$logFile = File.new("/var/log/pluto/Marantz_SR5600.log", "w") log("Initializing Marantz GSD Device\n") #<$"@AST:F\r"$> # max level of feedback SendIrCommand("@AST:F") #<$"@MPW:2\r"$> # multi room always on SendIrCommand("@MPW:2") #<$"@MSP:1\r"$> # turn multi room speakers off by default SendIrCommand("@MSP:1") #<$"@MAM:2\r"$> # mute multi room line out by default SendIrCommand("MAM:2") #<$"@VOL:0-20\r"$> # default main volume -20 SendIrCommand("@VOL:0-20") #<$"@MSV:0-60\r"$> # default multi speaker volume SendIrCommand("@MSV:0-60") #<$"@MVL:0-60\r"$> # default multi room line out volume SendIrCommand("@MVL:0-60") log("Initialization of Marantz GSD Device finished !!!!\n")
$DevicePower = 1 SendIrCommand("@PWR:2") log("Initializing Marantz GSD Device\n") SendIrCommand("@AST:F") # max level of feedback SendIrCommand("@MPW:2") # multi room always on SendIrCommand("@MSP:1") # turn multi room speakers off by default SendIrCommand("@MAM:2") # mute multi room line out by default SendIrCommand("@VOL:0-20") # default main volume -20 SendIrCommand("@MSV:0-60") # default multi speaker volume SendIrCommand("@MVL:0-60") # default multi room line out volume $ZoneStatus = Hash.new() InitZones() ShowZonesInitialVolumes() #$DevicePower = 0 #SendIrCommand("@PWR:1") log("Initialization of Marantz GSD Device finished - Device is powered off!!!!\n")


#384 Process Receive Command For Child
#384 Process Receive Command For Child
Line 73: Line 65:


#356 Process Release
#356 Process Release
log("Shutting down Marantz GSD Device\n") SendIrCommand("@MAM:2") SendIrCommand("@MSP:1") log("Sending Marantz : Power Off: PWR:1\n") #<$"@PWR:1\r"</s></s>$> SendIrCommand("@PWR:1")
log("Shutting down Marantz GSD Device\n") SendIrCommand("@MAM:2") SendIrCommand("@MSP:1") log("Sending Marantz : Power Off: PWR:1\n") SendIrCommand("@PWR:1")


Misc
Misc
#587 Preset/Prog/Freq
#587 Preset/Prog/Freq
identifier = cmd.params_[216] # Main volume "TFQ:0xxxxx" from 08700 till + 10800 # Multiroom Frequency “MTF:0xxxxx“ from 08700 till + 10800 # Multiroom Speakers “MTF:0xxxxx“ from 08700 till + 10800 # switch to tuner mode first SendMultiZoneCommand(cmd, ["@SRC:G", "@MSC:G", "@MSC:G"]) # tune to desired frequency SendMultiZoneCommand(cmd, ["@TFQ:0"+identifier, "@MTF:0"+identifier, "@MTF:0"+identifier]) log("Sending Marantz : Setting tuner frequency to "+identifier+"\n")
identifier = cmd.params_[216] # Main Frequency "TFQ:0xxxxx" from 08700 till + 10800 # Multiroom Frequency “MTF:0xxxxx“ from 08700 till + 10800 # switch to tuner mode first SendMultiZoneCommand(cmd, ["@SRC:G", "@MSC:G", "@MSC:G"]) # tune to desired frequency SendMultiZoneCommand(cmd, ["@TFQ:0"+identifier, "@MTF:0"+identifier, "@MTF:0"+identifier]) log("Sending Marantz : Setting tuner frequency to "+identifier+"\n")
 
On-Screen Menu Navig
#240 Back / Prior Menu
 
#225 Display
 
#368 Help
 
#86 Menu (Show Menu)
 
#201 Move Down
 
#202 Move Left
 
#203 Move Right
 
#200 Move Up


Simple Control
Simple Control
#92 Pause
#139 Play
#102 Record
#64 Skip Back - Channel/Track Lower
#64 Skip Back - Channel/Track Lower


#63 Skip Fwd - Channel/Track Greater
#63 Skip Fwd - Channel/Track Greater
#95 Stop


Line 128: Line 83:


#313 Set Volume
#313 Set Volume
level = cmd.params_[76] # Main volume “VOL:0xxx” from - 99 till + 18 # Multiroom Speakers "MSV:0xxx" from - 99 till + 0 # Multiroom Speakers “MVL:0xxx” from - 99 till + 0 SendMultiZoneCommand(cmd, ["@VOL:0"+level, "@MSV:0"+level, "@MVL:0"+level]) log("Sending Marantz : Set Volume Level to "+level+"\n")
level = cmd.params_[76] # Main volume “VOL:0xxx” from - 99 till + 18 # Multiroom Speakers "MSV:0xxx" from - 99 till + 0 # Multiroom Speakers “MVL:0xxx” from - 99 till + 0 zone = GetZone(cmd.devidto_) log("313:Set Volume Command: Got Cmd with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + " | Zone : " + zone.to_s + "\n") if ( zone == 0) new_level = DeNormalizeVolume_MainZone(level.to_i) temp_str = "@VOL:0"+new_level.to_s log("SetVolumeCommand: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) elsif ( zone == 1) new_level = DeNormalizeVolume_OtherZone(level.to_i) temp_str = "@MSV:0"+new_level.to_s SendIrCommand(temp_str) elsif ( zone == 2) new_level = DeNormalizeVolume_OtherZone(level.to_i) temp_str = "@MVL:0"+new_level.to_s log("SetVolumeCommand: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) else log("SetVolumeCommand: invalid zone " + zone.to_s + ":" + zone.to_i + ". Send commands only to valid child devices!!!\n") end


#90 Vol Down
#90 Vol Down
Line 143: Line 98:


#98 Slow Scan Back
DSP Modes
 
#99 Slow Scan Forward
 
DSP ModesDSP Mode commands not implemented: Dolby Digital, DTS Surround, Surround (Click to add)
 
 
 
def ReceiveReportCommand()
buff = conn_.RecvDelimited("\r", 1000)
print "Cmd response from Marantz: " + buff + "\n"
log("Cmd response from Marantz: " + buff + "\n")
end
 
def SendIrCommand(command)
conn_.Send(command+ "\r")
        log("Sending Command: " + command + "\n")
ReceiveReportCommand()
end
 
def log(word)
logTime = Time.now
timeStr = logTime.strftime("%d-%m-%Y  %H:%M:%S  ")
 
print( timeStr + " " + word)
if( $logFile.nil? == false ) then
$logFile.print( timeStr + " " + word )
$logFile.flush()
end
end
 
def SendMultiZoneCommand(cmd, commandsArray, commandParam="")
        log("Got Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n")
zone = GetZone(cmd.devidto_)
if( zone >= 0 and zone < commandsArray.size )
log("Determine zone for command : " + zone.to_s + "\n")
SendIrCommand(commandsArray[zone] + commandParam.to_s)
else
log("SendMultiZoneCommand: invalid zone " + zone.to_s)
end
end
 
def GetZone(deviceDestination)
if( device_.mapDevice_PortChannel_.has_key?(deviceDestination) and
device_.mapDevice_PortChannel_[deviceDestination] != nil and
!device_.mapDevice_PortChannel_[deviceDestination].empty? )
return device_.mapDevice_PortChannel_[deviceDestination].to_i
end
return 0
end
 
def ShowZones()
log("####### Dev 2 PortChanel")
device_.mapDevice_PortChannel_.each do |key, value|
log(key.to_s + " => " + value.to_s)
end
log("======= PortChanel 2 Dev")
device_.mapPortChannel_Device_.each do |key, value|
log(key.to_s + " => " + value.to_s)
end
end
 
 
buff = conn_.RecvDelimited("\r", 1000)
print "Info from Marantz: " + buff + "\n"
log("Info from Marantz: " + buff + "\n")
 
 
$logFile = File.new("/var/log/pluto/Marantz_SR5600.log", "w")
log("Initializing Marantz GSD Device\n")
 
 
#<$"@AST:F\r"$> # max level of feedback
SendIrCommand("@AST:F")
 
 
#<$"@MPW:2\r"$> # multi room always on
SendIrCommand("@MPW:2")
 
#<$"@MSP:1\r"$> # turn multi room speakers off by default
SendIrCommand("@MSP:1")
 
#<$"@MAM:2\r"$> # mute multi room line out by default
SendIrCommand("MAM:2")
 
#<$"@VOL:0-20\r"$> # default main volume -20
SendIrCommand("@VOL:0-20")
#<$"@MSV:0-60\r"$> # default multi speaker volume
SendIrCommand("@MSV:0-60")
#<$"@MVL:0-60\r"$> # default multi room line out volume
SendIrCommand("@MVL:0-60")
 
log("Initialization of Marantz GSD Device finished !!!!\n")
 
 
 
 
 
log("Shutting down Marantz GSD Device\n")
SendIrCommand("@MAM:2")
SendIrCommand("@MSP:1")
log("Sending Marantz : Power Off:  PWR:1\n")
#<$"@PWR:1\r"</s></s>$>
SendIrCommand("@PWR:1")
 
 
 
identifier = cmd.params_[216]
# Main volume "TFQ:0xxxxx"  from 08700 till + 10800
# Multiroom Frequency “MTF:0xxxxx“  from 08700 till + 10800
# Multiroom Speakers “MTF:0xxxxx“  from 08700 till + 10800
 
# switch to tuner mode first
SendMultiZoneCommand(cmd, ["@SRC:G", "@MSC:G", "@MSC:G"])
 
# tune to desired frequency
SendMultiZoneCommand(cmd, ["@TFQ:0"+identifier, "@MTF:0"+identifier, "@MTF:0"+identifier])
log("Sending Marantz : Setting tuner frequency to "+identifier+"\n")
 
 
 
 
level = cmd.params_[76]
# Main volume “VOL:0xxx”  from - 99 till + 18
# Multiroom Speakers "MSV:0xxx"  from - 99 till + 0
# Multiroom Speakers “MVL:0xxx”  from - 99 till + 0
SendMultiZoneCommand(cmd, ["@VOL:0"+level, "@MSV:0"+level, "@MVL:0"+level])
log("Sending Marantz : Set Volume Level to "+level+"\n")
</nowiki></pre>
</nowiki></pre>

Revision as of 23:35, 25 June 2008

 Power
#193 Off
	#SendMultiZoneCommand(cmd, ["@PWR:1", "@MSP:1", "@MAM:2"]) SendMultiZonePowerOffCommand(cmd, ["@AMT:2", "@MSP:1", "@MAM:2"]) 	

#192 On
	#SendMultiZoneCommand(cmd, ["@PWR:2", "@MSP:2", "@MAM:1"]) SendMultiZonePowerOnCommand(cmd, ["@AMT:1", "@MSP:2", "@MAM:1"]) 	

#194 Toggle Power
		

Inputs
#164 Aux
	SendMultiZoneCommand(cmd, ["@SRC:9", "@MSC:9", "@MSC:9"]) 	

#172 Aux 2
	SendMultiZoneCommand(cmd, ["@SRC:A", "@MSC:A", "@MSC:A"]) 	

#162 CD
	SendMultiZoneCommand(cmd, ["@SRC:C", "@MSC:C", "@MSC:C"]) 	

#420 CDR
	SendMultiZoneCommand(cmd, ["@SRC:D", "@MSC:D", "@MSC:D"]) 	

#178 DSS
	SendMultiZoneCommand(cmd, ["@SRC:4", "@MSC:4", "@MSC:4"]) 	

#165 DVD
	SendMultiZoneCommand(cmd, ["@SRC:2", "@MSC:2", "@MSC:2"]) 	

#170 FM
	SendMultiZoneCommand(cmd, ["@SRC:G", "@MSC:G", "@MSC:G"]) 	

#160 Tape / Tape 1
	SendMultiZoneCommand(cmd, ["@SRC:E", "@MSC:E", "@MSC:E"]) 	

#166 Tuner
	SendMultiZoneCommand(cmd, ["@SRC:F", "@MSC:F", "@MSC:F"]) 	

#161 TV
	SendMultiZoneCommand(cmd, ["@SRC:1", "@MSC:1", "@MSC:1"]) 	

#282 VCR-1
	SendMultiZoneCommand(cmd, ["@SRC:3", "@MSC:3", "@MSC:3"]) 	

DSP Modes (Audio)
#891 All Ch Stereo
	#<$"@SUR:0H\r"$> SendIrCommand("@SUR:0H") 	

Internal
#373 Private Method Listing
	def ReceiveReportCommand() buff = conn_.RecvDelimited("\r", 1000) log("Cmd response from Marantz: " + buff + "\n") end def SendIrCommand(command) log("SendIrCommand: " + command + "\n") conn_.Send(command+ "\r") log("Sending Command: " + command + "\n") ReceiveReportCommand() end def log_older(word) logTime = Time.now timeStr = logTime.strftime("%d-%m-%Y %H:%M:%S ") print( timeStr + " " + word) if( $logFile.nil? == false ) then $logFile.print( timeStr + " " + word ) $logFile.flush() end end def log(line) # $log = File.open("/var/log/pluto/" + device_.devid_.to_s + "_Generic_Serial_Device.log", "a") $log = File.open("/var/log/pluto/Marantz_SR5600.log", "a") logTime = Time.now timeStr = logTime.strftime("%d-%m-%Y %H:%M:%S ") $log.puts timeStr + "(***):" + line.to_s $log.close end def SendMultiZoneCommand(cmd, commandsArray, commandParam="") log("Got Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n") zone = GetZone(cmd.devidto_) if( zone >= 0 and zone < commandsArray.size ) zone_desc=device_.childdevices_[cmd.devidto_].devdata_[186] log("Determine zone for command : " + zone_desc + "[" + zone.to_s + "]\n") SendIrCommand(commandsArray[zone] + commandParam.to_s) else log("SendMultiZoneCommand: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end end def SendMultiZonePowerOnCommand(cmd, commandsArray, commandParam="") #It will Unmute Zone first and then see also global power should be turned on... log("Got Power On Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n") zone = GetZone(cmd.devidto_) if( zone >= 0 and zone < commandsArray.size ) zone_desc=device_.childdevices_[cmd.devidto_].devdata_[186] log("Determine zone for command : " + zone_desc + "[" + zone.to_s + "]\n") SendIrCommand(commandsArray[zone] + commandParam.to_s) $ZoneStatus[zone.to_s] = 'ON' log("*** Setting zone : " + zone_desc + "[" + zone.to_s + "] to ON\n") ShowZones() if ($DevicePower == 0) SendIrCommand("@PWR:2") end $DevicePower = 1 elsif (zone == -1) if ($DevicePower == 0) SendIrCommand("@PWR:2") end $DevicePower = 1 log("####### Powering device On\n") else log("SendMultiZonePowerOnCommand: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end end def SendMultiZonePowerOffCommand(cmd, commandsArray, commandParam="") #It will Mute Zone first and then see if also global power can be turned off... log("Got Power Off Command with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + "\n") zone = GetZone(cmd.devidto_) if( zone >= 0 and zone < commandsArray.size ) zone_desc=device_.childdevices_[cmd.devidto_].devdata_[186] log("Determine zone for command : " + zone_desc + "[" + zone.to_s + "]\n") SendIrCommand(commandsArray[zone] + commandParam.to_s) $ZoneStatus[zone.to_s] = 'OFF' log("*** Setting zone : " + zone_desc + "[" + zone.to_s + "] to OFF\n") ShowZones() if (($ZoneStatus["0"] == 'OFF') and ($ZoneStatus["1"] == 'OFF') and ($ZoneStatus["2"] == 'OFF')) SendIrCommand("@PWR:1") $DevicePower = 0 log("####### All zones are muted - device is powered Off\n") end else log("SendMultiZonePowerOffCommand: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end end def GetZone(deviceDestination) if( device_.mapDevice_PortChannel_.has_key?(deviceDestination) and device_.mapDevice_PortChannel_[deviceDestination] != nil and !device_.mapDevice_PortChannel_[deviceDestination].empty? ) return device_.mapDevice_PortChannel_[deviceDestination].to_i end return -1 end def ShowZonesDebug() log("####### Dev 2 PortChanel\n") device_.mapDevice_PortChannel_.each do |key, value| log(key.to_s + " => " + value.to_s + "\n") end log("======= PortChanel 2 Dev\n") device_.mapPortChannel_Device_.each do |key, value| log(key.to_s + " => " + value.to_s+ "\n") end end def ShowZonesInitialVolumes() log("####### Show Initial Volume Levels for zones\n") device_.mapDevice_PortChannel_.each do |key, value| volume = device_.childdevices_[key].devdata_[208] log("Zone " + value.to_s + " => " + volume.to_s + "\n") SetVolumeInZone(volume,value) end end def ShowZones() temp = "####### Zones Status : " device_.mapDevice_PortChannel_.each do |key, value| temp = temp + " | Zone " + value.to_s + " => " + $ZoneStatus[value] end temp = temp + "\n" log(temp) end def SetZones(state) log("####### Setting all zones to " + state + "\n") device_.mapDevice_PortChannel_.each do |key, value| $ZoneStatus[value] = state log("Zone " + value.to_s + " => " + state + "\n") end end def InitZones() log("####### Initializing all zones to OFF\n") device_.mapDevice_PortChannel_.each do |key, value| $ZoneStatus[value] = 'OFF' log("Zone " + value.to_s + " => " + $ZoneStatus[value] + "\n") end log("####### Print $ZoneStatus Hash:\n") $ZoneStatus.each do |key, value| log("Zone " + key.to_s + " => " + value.to_s + "\n") end end def SetVolumeInZone(level,zone) # Sets Normalized Volume Level (0..100) in certain zone log("SetVolumeInZone: volume: " + level.to_s + " => Zone: " + zone + "\n") if ( zone == "0") log("SetVolumeInZone0: volume: " + level.to_s + " => Zone: " + zone + "\n") new_level = DeNormalizeVolume_MainZone(level.to_i) log("SetVolumeInZone00: volume: " + level.to_s + " => Zone: " + zone + "\n") temp_str="@VOL:0"+new_level.to_s; log("SetVolumeInZone: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) elsif ( zone == "1") log("SetVolumeInZone1: volume: " + level.to_s + " => Zone: " + zone + "\n") new_level = DeNormalizeVolume_OtherZone(level.to_i) log("SetVolumeInZone11: volume: " + level.to_s + " => Zone: " + zone + "\n") temp_str="@MSV:0"+new_level.to_s; log("SetVolumeInZone: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) elsif ( zone == "2") log("SetVolumeInZone2: volume: " + level.to_s + " => Zone: " + zone + "\n") new_level = DeNormalizeVolume_OtherZone(level.to_i) # log("SetVolumeInZone22: volume: " + level + " => Zone: " + zone + "\n") temp_str="@MVL:0"+new_level.to_s; log("SetVolumeInZone: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) else log("SetVolumeInZone: invalid zone " + zone.to_s + ". Send commands only to valid child devices!!!") end log("SetVolumeInZone End: volume: " + level.to_s + " => Zone: " + zone + "\n") end def NormalizeVolume_MainZone(level) # Normalizes Marantz Volume Level (-99..+10) to 0-100 boundaries for Main Zone temp = (level+100)/110.0*100.0 log("Normalizing Main Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end def NormalizeVolume_OtherZone(level) # Normalizes Marantz Volume Level to 0-100 boundaries for Second Zone (-90..0) temp = ((level+90.0)/90.0)*100.0 log("Normalizing Other Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end def DeNormalizeVolume_MainZone(level) # DeNormalizes volume level in 0-100 boundaries to Marantz Volume Level (-99..+10) for Main Zone temp = (level/100.0)*110.0-99 log("DeNormalizing Main Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end def DeNormalizeVolume_OtherZone(level) # DeNormalizes volume level in 0-100 boundaries to Marantz Volume Level (-90..0) for Other Zone temp = ((level/100.0)*90.0)-90.0 log("DeNormalizing Other Zone Volume Level from : " + level.to_s + " to " + temp.to_s + "\n") return temp.round end 	

#351 Process IDLE
	#ShowZonesDebug() ShowZones() 	

#350 Process Incoming Data
	buff = conn_.RecvDelimited("\r", 1000) print "Info from Marantz: " + buff + "\n" log("Info from Marantz: " + buff + "\n") 	

#355 Process Initialize
	$DevicePower = 1 SendIrCommand("@PWR:2") log("Initializing Marantz GSD Device\n") SendIrCommand("@AST:F") # max level of feedback SendIrCommand("@MPW:2") # multi room always on SendIrCommand("@MSP:1") # turn multi room speakers off by default SendIrCommand("@MAM:2") # mute multi room line out by default SendIrCommand("@VOL:0-20") # default main volume -20 SendIrCommand("@MSV:0-60") # default multi speaker volume SendIrCommand("@MVL:0-60") # default multi room line out volume $ZoneStatus = Hash.new() InitZones() ShowZonesInitialVolumes() #$DevicePower = 0 #SendIrCommand("@PWR:1") log("Initialization of Marantz GSD Device finished - Device is powered off!!!!\n") 	

#384 Process Receive Command For Child
		

#356 Process Release
	log("Shutting down Marantz GSD Device\n") SendIrCommand("@MAM:2") SendIrCommand("@MSP:1") log("Sending Marantz : Power Off: PWR:1\n") SendIrCommand("@PWR:1") 	

Misc
#587 Preset/Prog/Freq
	identifier = cmd.params_[216] # Main Frequency "TFQ:0xxxxx" from 08700 till + 10800 # Multiroom Frequency “MTF:0xxxxx“ from 08700 till + 10800 # switch to tuner mode first SendMultiZoneCommand(cmd, ["@SRC:G", "@MSC:G", "@MSC:G"]) # tune to desired frequency SendMultiZoneCommand(cmd, ["@TFQ:0"+identifier, "@MTF:0"+identifier, "@MTF:0"+identifier]) log("Sending Marantz : Setting tuner frequency to "+identifier+"\n") 	

Simple Control
#64 Skip Back - Channel/Track Lower
		

#63 Skip Fwd - Channel/Track Greater
		

Sound & Volume
#97 Mute
	SendMultiZoneCommand(cmd, ["@AMT:0", "@MSM:0", "@MAM:0"]) 	

#313 Set Volume
	level = cmd.params_[76] # Main volume “VOL:0xxx” from - 99 till + 18 # Multiroom Speakers "MSV:0xxx" from - 99 till + 0 # Multiroom Speakers “MVL:0xxx” from - 99 till + 0 zone = GetZone(cmd.devidto_) log("313:Set Volume Command: Got Cmd with ID: " + cmd.id_.to_s + " from: " + cmd.devidfrom_.to_s + " to: " + cmd.devidto_.to_s + " | Zone : " + zone.to_s + "\n") if ( zone == 0) new_level = DeNormalizeVolume_MainZone(level.to_i) temp_str = "@VOL:0"+new_level.to_s log("SetVolumeCommand: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) elsif ( zone == 1) new_level = DeNormalizeVolume_OtherZone(level.to_i) temp_str = "@MSV:0"+new_level.to_s SendIrCommand(temp_str) elsif ( zone == 2) new_level = DeNormalizeVolume_OtherZone(level.to_i) temp_str = "@MVL:0"+new_level.to_s log("SetVolumeCommand: About to send command :" + temp_str + "\n") SendIrCommand(temp_str) else log("SetVolumeCommand: invalid zone " + zone.to_s + ":" + zone.to_i + ". Send commands only to valid child devices!!!\n") end 	

#90 Vol Down
	SendMultiZoneCommand(cmd, ["@VOL:2", "@MSV:2", "@MVL:2"]) 	

#89 Vol Up
	SendMultiZoneCommand(cmd, ["@VOL:1", "@MSV:1", "@MVL:1"]) 	

Speed Ctrl
#125 Scan Back/Rewind
		

#93 Scan Fwd/Fast Fwd
		

DSP Modes
Retrieved from "http://wiki.linuxmce.org/index.php?title=User:Bulek&oldid=14441"