User:Bulek
From LinuxMCE
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
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
