Create pallets macro

This is a place for people to chare the custom macros they have written.

Moderator: Moderators

Post Reply
karali
Posts: 9
Joined: 30 Dec 2024, 20:24

Create pallets macro

Postby karali » 31 Mar 2025, 17:35

Hi!

I'm making a macro that generates palettes. The palettes are GLOBAL so even though I'm making them as CMY they should match everything. To generate the right colors I created a new dummy device (manufacturer: dummy, device name: Fixture 1, mode name: Mode 1) that contains Cyan, Magenta, Yellow, White, CTO and it is automatically patched when the macro is called.

Below is a fragment of the code because I didn't throw in all the colors.

The code needs to be improved because I have a problem with CTO - the colors are generated but it doesn't match them to other devices - maybe someone can help me improve and finish my idea?


Code: Select all

<?xml version="1.0" encoding="utf-8"?>
<avolites.macros>
 
  <!-- Daniel Sipowicz, 2025 -->
  <!-- tested in Titan v17.1 -->


  <macro id="__Pallets" name="Make color pallets">
    <description>kolory</description>
    <sequence>


<!-- patch an dummy fixture -->
   
      <step>ActionScript.SetProperty("Patch.CurrentUserNumber", userNumber:999)</step>
      <step>Fixtures.PatchFixturesToVacantHandles("Fixtures", "dummy", "Fixture 1", "Mode 1", 1, 1, "")</step>
      <step>Handles.SetSourceHandleFromHandle("fixtureHandleUN=999")</step>
      <step>ActionScript.SetProperty.Enum("Handles.OperationMode", "move")</step>
      <step>Handles.CopyDestination("Fixtures", 99)</step>
      <step>Handles.ClearSelection()</step>
     
   
<!--  select fixture  -->
<step pause="0.1">Programmer.Editor.Selection.SelectFixture(handle:"fixtureHandleUN=999")</step>
<!--  set some colour values and quick-create palettes  -->


<!--  white  -->
<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 1.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(276, 1, 0.0, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 0), "C", userNumber:1, "", 0)</step>

<!--  yellow 100% , magenta 0-100, cyan 0 -->
<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 1.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.0, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 1), "C", userNumber:2, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.25, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 1.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.0, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 2), "C", userNumber:3, "", 0)</step>

.
.
.
.


<!-- CTO 0-100% 10 steps  -->
<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.1, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 31), "C", userNumber:32, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.2, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 32), "C", userNumber:33, "", 0)
</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.3, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 33), "C", userNumber:34, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.4, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 34), "C", userNumber:35, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.5, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 35), "C", userNumber:36, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.6, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 36), "C", userNumber:37, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.7, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 37), "C", userNumber:38, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.8, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 38), "C", userNumber:39, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 0.9, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 39), "C", userNumber:40, "", 0)</step>

<step>Programmer.Editor.Fixtures.SetControlValueById(64, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(80, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(96, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(274, 1, 0.0, true, true)</step>
<step>Programmer.Editor.Fixtures.SetControlValueById(277, 1, 1.0, true, true)</step>
<step pause="0.1">Palette.QuickCreatePalette(Handles.CreateHandleReference("Colours", 0, 40), "C", userNumber:41, "", 0)</step>


<!--  clear programmer  -->
<step>Programmer.Editor.ClearAll(false, false)</step>
</sequence>
  </macro> 
</avolites.macros>
Top
User avatar
kimwida
Posts: 262
Joined: 05 Aug 2016, 16:26
Location: Seoul

Re: Create pallets macro

Postby kimwida » 02 Apr 2025, 16:33

This is from my code which generate some palettes.
And it works well.

Code: Select all

   <step pause="0.1">ActionScript.SetProperty.Enum("Palette.MinimumPaletteMode", "Global")</step>
   <step pause="0.1">ActionScript.SetProperty.Enum("Palette.RecordMode", "Channel")</step>

   <step pause="0.1">Handles.Colours.ChangePage(0)</step>
   <step pause="0.1">Selection.Context.Programmer.SelectFixture(handle:"Location=Fixtures,1,1")</step>
   <step pause="0.1">Programmer.Editor.Fixtures.SetControlValueById(240,1,1,true,true)</step>
   <step pause="0.1">Programmer.Editor.Fixtures.SetControlValueById(256,1,0,true,true)</step>
   <step pause="0.1">Programmer.Editor.Fixtures.SetControlValueById(272,1,0,true,true)</step>
   <step pause="0.1">Programmer.Editor.Fixtures.SetControlValueById(274,1,0,true,true)</step>
   <step pause="0.1">ActionScript.SetProperty("Palette.CurrentPaletteNumber",userNumber:101)</step>
   <step pause="0.1">Palette.StoreMenu.StoreOnButton("Colours", 1)</step>
   <step pause="0.1">Programmer.Editor.ClearAll()</step>
Top
karali
Posts: 9
Joined: 30 Dec 2024, 20:24

Re: Create pallets macro

Postby karali » 54 minutes ago

Thank you for your code - basically they are identical, only I use CMY and you RGB and in addition I created a fake device to make pallets on an empty show. Unfortunately I still have a problem with CTO palettes for CMY devices (Arolla type) - Cto creates well for Led Wash, but everything that with CMY + Cto does not make a palette properly
Top
Post Reply

Return to “Titan Macro Library”

Who is online

Users browsing this forum: No registered users and 3 guests