punchlight Recording Lamp USB MIDI-Fernsteuerung

Hallo,

ich habe mir gerade die punchlight Recording Lamp USB (https://www.punchlight.com/recording_lamp_usb) gekauft. Diese kann durch diverse Software z.B. Pro Tools usw. ferngesteuert werden.
Das würde ich nun auch gerne mit mAirList machen.
Bei YouTube gibt es ein Tutorialvideo (https://www.youtube.com/watch?v=z4XWMze8s-k) wo das bei der Software ProppFrexx On Air funktioniert.
Ich denke, dass müsste dann doch auch bei mAirList funktionieren.

Hat vielleicht Torben oder jemand anderes eine Idee?

LG
Holger

Ist irgendwo dokumentiert wie die tatsächlich angesteuert wird? Finde auf Anhieb nichts.

Wird in dem YouTube-Video teilweise gezeigt. Ich habe die USB-Lampe mit den im Video beschriebenen Einstellungen und diesen Befehlen zum leuchten gebracht.

MidiOutOpen(1); MidiOut(1, 145, 25, 0);

Leider leuchtet sie so nur in rot. Die anderen möglichen Farben, habe ich nicht hinbekommen.

Ok, schön. Dann hast du ja schon rausgefunden, wie es aus mAirList heraus geht. Und ich verstehe die Frage nicht mehr ganz.

Hallo Holger!

Ich überlege ebenfalls mir die Punchlight Recording Lamp zu kaufen.
Könntest du mir vielleicht genauer erläutern, wie du die Lampe letztendlich mit mAirlist verbunden hast? (Oder kann mir irgendjemand anderes weiterhelfen?)

LG
Leo :grinning:

Hallo Leo,

das in deinem Profileintrag ist nicht die Lizenznummer. :wink:
Bitte anpassen, danke.

Habe es geändert!

LG :grinning:

Perfekt, danke! :+1:

Hoffe, du bekommst entsprechende Hinweise zu dem Gerät in Zusammenhang mit mAirList.
Der Thread ist ja nun auch schon ein paar Tage alt und generell habe ich den Eindruck, dass nicht viele mAirList-User das Punchlight im Einsatz haben.

Hallo Leo,

ich habe das mit folgendem Script realisiert.

// PunchLight USB
// Script by Holger Ledermann

const
	// Recording Lamp USB (rgb)
	PunchLight = 1;

procedure OnLoad;
begin
	MidiOutOpen(PunchLight);
end;

procedure OnOffAir;
begin
	SystemLog('Encoder ist OFF AIR.');
	MidiOut(PunchLight, 144, 48, 0);
	MidiOut(PunchLight, 144, 60, 0);
	MidiOut(PunchLight, 176, 12, 14);
	MidiOut(PunchLight, 176, 44, 4);
end;

procedure OnOnAir;
begin
	SystemLog('Encoder ist ON AIR.');
	MidiOut(PunchLight, 144, 48, 0);
	MidiOut(PunchLight, 144, 60, 127);
end;

procedure OnEncoderInputToggle(Input: TEncoderInput; NewState: boolean);
begin
	if Input = eiMic then
	begin
		if NewState = True then
		begin
			MidiOut(PunchLight, 176, 12, 14);
			MidiOut(PunchLight, 176, 44, 69);
		end
		else if NewState = False then
		begin
			MidiOut(PunchLight, 144, 48, 0);
			MidiOut(PunchLight, 144, 60, 127);
		end;
	end;
	if Input = eiLine then
	begin
		if NewState = True then
		begin
			MidiOut(PunchLight, 144, 48, 0);
			MidiOut(PunchLight, 144, 60, 127);
		end
		else if NewState = False then
		begin
			MidiOut(PunchLight, 144, 48, 0);
			MidiOut(PunchLight, 144, 60, 0);
			MidiOut(PunchLight, 176, 12, 14);
			MidiOut(PunchLight, 176, 44, 4);
		end;
	end;
end;

procedure OnExecuteCommand(Command: string);
begin
	{ if Command = 'COMMAND' then
	begin
	end; }
end;

procedure OnUnload;
begin
	MidiOut(PunchLight, 144, 48, 0);
	MidiOut(PunchLight, 144, 60, 0);
	MidiOut(PunchLight, 176, 12, 14);
	MidiOut(PunchLight, 176, 44, 4);
	MidiOutClose(PunchLight);
end;

begin

end.

Viel Erfolg!

Hallo Holger!

Vielen Dank für das Script.

LG :smiley: