Linux and Windows can have scripts/shaders in Resource Folder

neurolabusc · Nov 28, 2018 · 3648d4b · 3648d4b
2 parents 24641a0 + c1b8e02
commit 3648d4b
Show file tree

Hide file tree

Showing 192 changed files with 16,615 additions and 508 deletions.
diff --git a/lut/1hot.clut → Resources/lut/1hot.clut b/lut/1hot.clut → Resources/lut/1hot.clut
diff --git a/lut/2winter.clut → Resources/lut/2winter.clut b/lut/2winter.clut → Resources/lut/2winter.clut
diff --git a/lut/3warm.clut → Resources/lut/3warm.clut b/lut/3warm.clut → Resources/lut/3warm.clut
diff --git a/lut/4cool.clut → Resources/lut/4cool.clut b/lut/4cool.clut → Resources/lut/4cool.clut
diff --git a/lut/5redyell.clut → Resources/lut/5redyell.clut b/lut/5redyell.clut → Resources/lut/5redyell.clut
diff --git a/lut/6bluegrn.clut → Resources/lut/6bluegrn.clut b/lut/6bluegrn.clut → Resources/lut/6bluegrn.clut
diff --git a/lut/CT_Bones.clut → Resources/lut/CT_Bones.clut b/lut/CT_Bones.clut → Resources/lut/CT_Bones.clut
diff --git a/lut/CT_Kidneys.clut → Resources/lut/CT_Kidneys.clut b/lut/CT_Kidneys.clut → Resources/lut/CT_Kidneys.clut
diff --git a/lut/CT_Liver.clut → Resources/lut/CT_Liver.clut b/lut/CT_Liver.clut → Resources/lut/CT_Liver.clut
diff --git a/lut/CT_Lungs.clut → Resources/lut/CT_Lungs.clut b/lut/CT_Lungs.clut → Resources/lut/CT_Lungs.clut
diff --git a/lut/CT_Muscles.clut → Resources/lut/CT_Muscles.clut b/lut/CT_Muscles.clut → Resources/lut/CT_Muscles.clut
diff --git a/lut/CT_Skin.clut → Resources/lut/CT_Skin.clut b/lut/CT_Skin.clut → Resources/lut/CT_Skin.clut
diff --git a/lut/CT_Vessels.clut → Resources/lut/CT_Vessels.clut b/lut/CT_Vessels.clut → Resources/lut/CT_Vessels.clut
diff --git a/lut/GE_color.clut → Resources/lut/GE_color.clut b/lut/GE_color.clut → Resources/lut/GE_color.clut
diff --git a/lut/HOTIRON.clut → Resources/lut/HOTIRON.clut b/lut/HOTIRON.clut → Resources/lut/HOTIRON.clut
diff --git a/lut/Montserrat.json → Resources/lut/Montserrat.json b/lut/Montserrat.json → Resources/lut/Montserrat.json
diff --git a/lut/OpenSans.json → Resources/lut/OpenSans.json b/lut/OpenSans.json → Resources/lut/OpenSans.json
diff --git a/lut/Oswald.json → Resources/lut/Oswald.json b/lut/Oswald.json → Resources/lut/Oswald.json
diff --git a/lut/Oswald.png → Resources/lut/Oswald.png b/lut/Oswald.png → Resources/lut/Oswald.png
diff --git a/lut/Oxygen.json → Resources/lut/Oxygen.json b/lut/Oxygen.json → Resources/lut/Oxygen.json
diff --git a/lut/Rainramp.clut → Resources/lut/Rainramp.clut b/lut/Rainramp.clut → Resources/lut/Rainramp.clut
diff --git a/lut/Roboto.json → Resources/lut/Roboto.json b/lut/Roboto.json → Resources/lut/Roboto.json
diff --git a/lut/Ubuntu.json → Resources/lut/Ubuntu.json b/lut/Ubuntu.json → Resources/lut/Ubuntu.json
diff --git a/lut/actc.clut → Resources/lut/actc.clut b/lut/actc.clut → Resources/lut/actc.clut
diff --git a/lut/bone.clut → Resources/lut/bone.clut b/lut/bone.clut → Resources/lut/bone.clut
diff --git a/lut/carp.clut → Resources/lut/carp.clut b/lut/carp.clut → Resources/lut/carp.clut
diff --git a/lut/electric_blue.clut → Resources/lut/electric_blue.clut b/lut/electric_blue.clut → Resources/lut/electric_blue.clut
diff --git a/lut/gold.clut → Resources/lut/gold.clut b/lut/gold.clut → Resources/lut/gold.clut
diff --git a/lut/montserrat.png → Resources/lut/montserrat.png b/lut/montserrat.png → Resources/lut/montserrat.png
diff --git a/lut/opensans.png → Resources/lut/opensans.png b/lut/opensans.png → Resources/lut/opensans.png
diff --git a/lut/oxygen.png → Resources/lut/oxygen.png b/lut/oxygen.png → Resources/lut/oxygen.png
diff --git a/lut/roboto.png → Resources/lut/roboto.png b/lut/roboto.png → Resources/lut/roboto.png
diff --git a/lut/surface.clut → Resources/lut/surface.clut b/lut/surface.clut → Resources/lut/surface.clut
diff --git a/lut/ubuntu.png → Resources/lut/ubuntu.png b/lut/ubuntu.png → Resources/lut/ubuntu.png
diff --git a/lut/x_rain.clut → Resources/lut/x_rain.clut b/lut/x_rain.clut → Resources/lut/x_rain.clut
diff --git a/script/basic.gls → Resources/script/basic.gls b/script/basic.gls → Resources/script/basic.gls
diff --git a/script/color.gls → Resources/script/color.gls b/script/color.gls → Resources/script/color.gls
diff --git a/script/mosaic.gls → Resources/script/mosaic.gls b/script/mosaic.gls → Resources/script/mosaic.gls
diff --git a/script/mra.gls → Resources/script/mra.gls b/script/mra.gls → Resources/script/mra.gls
diff --git a/script/overlay_clipping.gls → Resources/script/overlay_clipping.gls b/script/overlay_clipping.gls → Resources/script/overlay_clipping.gls
diff --git a/script/overlay_cutout.gls → Resources/script/overlay_cutout.gls b/script/overlay_cutout.gls → Resources/script/overlay_cutout.gls
diff --git a/script/overlay_glass.gls → Resources/script/overlay_glass.gls b/script/overlay_glass.gls → Resources/script/overlay_glass.gls
diff --git a/script/overlay_shell.gls → Resources/script/overlay_shell.gls b/script/overlay_shell.gls → Resources/script/overlay_shell.gls
diff --git a/script/python35.dll → Resources/script/python35.dll b/script/python35.dll → Resources/script/python35.dll
diff --git a/script/python35.zip → Resources/script/python35.zip b/script/python35.zip → Resources/script/python35.zip
diff --git a/script/shader.gls → Resources/script/shader.gls b/script/shader.gls → Resources/script/shader.gls
diff --git a/script/wobble.gls → Resources/script/wobble.gls b/script/wobble.gls → Resources/script/wobble.gls
diff --git a/shaders/default.txt → Resources/shaders/default.txt b/shaders/default.txt → Resources/shaders/default.txt
diff --git a/shaders/edge_phong.txt → Resources/shaders/edge_phong.txt b/shaders/edge_phong.txt → Resources/shaders/edge_phong.txt
diff --git a/shaders/minimal.txt → Resources/shaders/minimal.txt b/shaders/minimal.txt → Resources/shaders/minimal.txt
diff --git a/shaders/mip.txt → Resources/shaders/mip.txt b/shaders/mip.txt → Resources/shaders/mip.txt
diff --git a/shaders/occlusion.txt → Resources/shaders/occlusion.txt b/shaders/occlusion.txt → Resources/shaders/occlusion.txt
diff --git a/shaders/occlusion_sh.txt → Resources/shaders/occlusion_sh.txt b/shaders/occlusion_sh.txt → Resources/shaders/occlusion_sh.txt
diff --git a/shaders/overlay.txt → Resources/shaders/overlay.txt b/shaders/overlay.txt → Resources/shaders/overlay.txt
diff --git a/shaders/overlay_emit.txt → Resources/shaders/overlay_emit.txt b/shaders/overlay_emit.txt → Resources/shaders/overlay_emit.txt
diff --git a/shaders/overlay_glass.txt → Resources/shaders/overlay_glass.txt b/shaders/overlay_glass.txt → Resources/shaders/overlay_glass.txt
diff --git a/shaders/overlay_new.txt → Resources/shaders/overlay_new.txt b/shaders/overlay_new.txt → Resources/shaders/overlay_new.txt
diff --git a/shaders/overlay_shell.txt → Resources/shaders/overlay_shell.txt b/shaders/overlay_shell.txt → Resources/shaders/overlay_shell.txt
diff --git a/shaders/overlay_toon.txt → Resources/shaders/overlay_toon.txt b/shaders/overlay_toon.txt → Resources/shaders/overlay_toon.txt
diff --git a/shaders/phong.txt → Resources/shaders/phong.txt b/shaders/phong.txt → Resources/shaders/phong.txt
diff --git a/shaders/phong_sh.txt → Resources/shaders/phong_sh.txt b/shaders/phong_sh.txt → Resources/shaders/phong_sh.txt
diff --git a/shaders/simple.txt → Resources/shaders/simple.txt b/shaders/simple.txt → Resources/shaders/simple.txt
diff --git a/shaders/special_effects.txt → Resources/shaders/special_effects.txt b/shaders/special_effects.txt → Resources/shaders/special_effects.txt
diff --git a/shaders/unused/fresnel.txt → Resources/shaders/unused/fresnel.txt b/shaders/unused/fresnel.txt → Resources/shaders/unused/fresnel.txt
diff --git a/shaders/unused/overlay_emit.txt → Resources/shaders/unused/overlay_emit.txt b/shaders/unused/overlay_emit.txt → Resources/shaders/unused/overlay_emit.txt
diff --git a/shaders/unused/overlay_emit3 copy.txt → ...ces/shaders/unused/overlay_emit3 copy.txt b/shaders/unused/overlay_emit3 copy.txt → ...ces/shaders/unused/overlay_emit3 copy.txt
diff --git a/shaders/unused/overlay_emit3.txt → Resources/shaders/unused/overlay_emit3.txt b/shaders/unused/overlay_emit3.txt → Resources/shaders/unused/overlay_emit3.txt
diff --git a/shaders/unused/simple_2pass.txt → Resources/shaders/unused/simple_2pass.txt b/shaders/unused/simple_2pass.txt → Resources/shaders/unused/simple_2pass.txt
diff --git a/backup/clut.pas b/backup/clut.pas
@@ -0,0 +1,331 @@
+unit clut;
+{$D-,L-,O+,Q-,R-,Y-,S-}
+{$IFDEF FPC} {$mode delphi}{$H+} {$ENDIF}
+//color lookup tables
+interface
+uses
+//{$IFNDEF UNIX}Windows,{$ENDIF}
+dialogs,Classes,define_types, IniFiles, SysUtils,prefs,Menus, StdCtrls, userdir;
+type
+  TCLUTnode =record
+    intensity: byte;
+    rgba: TGLRGBQuad;
+  end;
+  TCLUTnodeRA = array [0..255] of TCLUTnode;
+  TCLUTrec =record
+    numnodes: integer;
+    min,max: single;
+    nodes: TCLUTnodeRA;
+  end;
+var
+  gCLUTrec: TCLUTrec;
+  gSelectedNode: integer = -1;
+  function Node(lIntensity,lR,lG,lB,lA: byte): TCLUTnode;
+  procedure RangeRec (lMin,lMax: single);
+  procedure AutoContrast (var lCLUTrec: TCLUTrec);
+  procedure GenerateLUT(lNodeRA: TCLUTrec; var lCLUT: TLUT);
+  procedure LoadColorSchemes;
+  procedure LUTChange(Sender: TObject);
+  procedure SetItemNameX (lStr: string; var LUTdrop: TComboBox); overload;
+  procedure SetItemNameX (lStr: string; var LUTdrop: TMenuItem); overload;
+  procedure UpdateColorSchemes (var LUTdrop: TComboBox);
+  procedure CLUT2TLUT(lFilename: string; var lLUT: TLUT; var lCLUTrec: TCLUTrec);
+  //procedure LinearMinMaxCLUT(lMin,lMax: TGLRGBQuad; var lCLUT: TLUT);
+  function CLUTDir: string;
+implementation
+uses mainunit;
+
+function StripAmpersand(lS: string): string;
+var i: integer;
+
+begin
+     result := '';
+     if length(lS) < 1 then
+        exit;
+     for i := 1 to length(lS) do
+         if lS[i] <> '&' then
+            result := result+ lS[i];
+end;
+
+procedure SetItemNameX (lStr: string; var LUTdrop: TMenuItem); overload;
+var
+  i: integer;
+  lIStr,lUStr,lPStr: string;
+begin
+  if LUTdrop.Count < 1 then exit;
+  lUStr := ansiuppercase(lStr);
+  lPStr := parsefilename(extractfilename(lUStr));
+  i := 0;
+  while i < LUTdrop.Count do begin
+    lIStr := StripAmpersand(ansiuppercase(LUTdrop.Items[i].caption));
+    if (lIStr = lUStr) or (lIStr = lPStr) then begin
+      LUTdrop.Items[i].click;
+      exit;
+    end;
+    inc(i);
+  end;
+end;//SetItemNameX
+(* the following code seems elegant, but is case sensitive and crashes lazarus if not found
+begin
+ LUTdrop.Find(lStr).Click;
+  //GLForm1.OpenColorScheme( LUTdrop.Find(lStr));
+end;//SetItemNameX *)
+
+procedure SetItemNameX (lStr: string; var LUTdrop: TComboBox); overload;
+var
+  i: integer;
+  lIStr,lUStr,lPStr: string;
+begin
+  if LUTdrop.Items.Count < 1 then exit;
+  lUStr := ansiuppercase(lStr);
+  lPStr := parsefilename(extractfilename(lUStr));
+  i := 0;
+  while i < LUTdrop.Items.Count do begin
+    lIStr := ansiuppercase(LUTdrop.Items[i]);
+    if (lIStr = lUStr) or (lIStr = lPStr) then begin
+      LUTdrop.ItemIndex := i;
+      exit;
+    end;
+    inc(i);
+  end;
+end;//SetItemNameX
+
+function CLUTDir: string;
+begin
+  //result := extractfilepath(paramstr(0))+'lut';
+  result := AppDir+'lut';
+  {$IFDEF UNIX}
+  if fileexists(result) then exit;
+  result := '/usr/share/mricrogl/lut';
+  if fileexists(result) then exit;
+  result := AppDir+'lut'
+  {$ENDIF}
+  if fileexists(result) then exit;
+  result := AppDir+'Resources'+pathdelim+'lut'
+
+end;
+
+function CLUT2disk(lRead: boolean; lFilename: string; var lCLUTrec: TCLUTrec): boolean;
+//Read or write initialization variables to disk
+var
+  lIniFile: TIniFile;
+  lI: integer;
+begin
+  result := false;
+  if lRead then
+    AutoContrast(lCLUTrec);
+  if (lRead) and (not Fileexists(lFilename)) then
+        exit;
+  lIniFile := TIniFile.Create(lFilename);
+  IniFloat(lRead,lIniFile, 'min',lCLUTrec.min);
+  IniFloat(lRead,lIniFile, 'max',lCLUTrec.max);
+  IniInt(lRead,lIniFile, 'numnodes',lCLUTrec.numnodes);
+  if (lCLUTrec.numnodes > 1) and (lCLUTrec.numnodes <= 256) then begin
+    for lI := 0 to (lCLUTrec.numnodes-1) do begin
+      IniByte(lRead,lIniFile, 'nodeintensity'+inttostr(lI),lCLUTrec.nodes[lI].intensity);
+      IniRGBA(lRead,lIniFile, 'nodergba'+inttostr(lI),lCLUTrec.nodes[lI].rgba);
+    end;
+  end else
+    AutoContrast (lCLUTrec);
+  lIniFile.Free;
+  result := true;
+end;
+
+function RemoveSpecial (S: string): string;
+var
+  i: integer;
+begin
+  result := '';
+  if length(S) < 1 then
+    exit;
+  for i:= 1 to length(S) do
+    if ord(S[i]) <> 38 then result := result + S[i];
+end;
+
+procedure LUTChange(Sender: TObject);
+begin
+  if (Sender as TMenuItem).Tag = 0 then
+    AutoContrast (gCLUTrec)
+  else
+     CLUT2disk(true,ClutDir+pathdelim+removespecial((Sender as TMenuItem).caption)+'.clut', gCLUTrec);
+  if (gCLUTrec.min = gCLUTrec.max) then
+    RangeRec(gTexture3D.MinThreshScaled,gTexture3D.MaxThreshScaled);
+end;
+
+procedure FindColorSchemes(out lS: TStringList);
+var
+	lSearchRec: TSearchRec;
+        lStr : string;
+begin
+  lS := TStringList.Create;
+  if FindFirst(CLUTdir+pathdelim+'*.clut', faAnyFile, lSearchRec) = 0 then
+	 repeat
+               lStr := ParseFileName(ExtractFileName(lSearchRec.Name));
+               if (length(lStr) > 0) and (lStr[1] <> '.') then
+                  lS.Add(lStr);
+	 until (FindNext(lSearchRec) <> 0);
+  FindClose(lSearchRec);
+  lS.sort;
+end;
+
+procedure UpdateColorSchemes (var LUTdrop: TComboBox);
+var
+  lS: TStringList;
+begin
+  FindColorSchemes(lS);
+  if lS.Count > 0 then
+    LUTdrop.Items.AddStrings(lS);
+  Freeandnil(lS);
+end;//UpdateColorSchemes
+
+procedure LoadColorSchemes;
+var
+  lS: TStringList;
+  NewItem: TMenuItem;
+  lPos: integer;
+begin
+  FindColorSchemes(lS);
+  for lPos := 0 to lS.Count do begin//for each MRU
+		   NewItem := TMenuItem.Create(GLForm1);
+       if lPos = 0 then
+        NewItem.Caption := 'Grayscale'
+       else
+		    NewItem.Caption :=ExtractFileName(lS[lPos-1]);//NewItem.Caption :=ExtractFileName(lS[lPos-1]);//(ParseFileName(ExtractFileName(lFName)));
+		   NewItem.Tag := lPos;
+
+       NewItem.onclick :=  GLForm1.OpenColorScheme;
+		   GLForm1.Scheme1.Add(NewItem);
+  end;//for each MRU
+  Freeandnil(lS);
+end;//UpdateColorSchemes
+
+
+
+procedure RangeRec (lMin,lMax: single);
+begin
+  gCLUTrec.min := lMin;
+  gCLUTrec.max := lMax;
+end;
+
+function Node(lIntensity,lR,lG,lB,lA: byte): TCLUTnode;
+begin
+  result.intensity := lIntensity;
+  result.rgba := RGBA(lR,lG,lB,lA);
+end;
+
+procedure GenerateLUT(lNodeRA: TCLUTrec; var lCLUT: TLUT);
+var
+  lSlope: single;
+  lSpace,lI,lIprev,lS: integer;
+  lMin,lMax: TCLUTnode;
+begin
+  if lNodeRA.numNodes < 2 then exit;
+  lMin := lNodeRA.nodes[0];
+  lMax := lNodeRA.nodes[lNodeRA.NumNodes-1];
+  //check that nodes are in order...
+  lIprev := lMin.intensity;
+  for lI := 1 to (lNodeRA.numnodes-1) do begin
+    if lNodeRA.nodes[lI].intensity <= lIprev then begin
+      showmessage('Error, nodes not sorted or overlapping.');
+      exit;
+    end;
+    lIprev := lNodeRA.nodes[lI].intensity;
+  end;
+  //clip values <= lMin to value of lMin
+  for lI := 0 to lMin.Intensity do begin
+    lCLUT[lI] := lMin.rgba;
+    if (lCLUT[lI].rgbReserved= 0) then  lCLUT[lI] := RGBA(0,0,0,0); //some clear nodes have RGB values to help interpolation
+  end;
+  //clip values >= lMax to value of lMin
+  for lI := lMax.Intensity to 255 do begin
+    lCLUT[lI] := lMax.rgba;
+  end;
+  for lI := 0 to (lNodeRA.NumNodes-2) do begin
+    lSpace := lNodeRA.nodes[lI+1].Intensity-lNodeRA.nodes[lI].Intensity;
+    //interpolate red
+    lSlope := (lNodeRA.nodes[lI+1].rgba.rgbRed-lNodeRA.nodes[lI].rgba.rgbRed)/lSpace;
+    for lS := 1 to lSpace do
+      lCLUT[lNodeRA.nodes[lI].Intensity+lS].rgbRed  :=lNodeRA.nodes[lI].rgba.rgbRed + round(lS * lSlope);
+    //interpolate green
+    lSlope := (lNodeRA.nodes[lI+1].rgba.rgbGreen-lNodeRA.nodes[lI].rgba.rgbGreen)/lSpace;
+    for lS := 1 to lSpace do
+      lCLUT[lNodeRA.nodes[lI].Intensity+lS].rgbGreen  :=lNodeRA.nodes[lI].rgba.rgbGreen + round(lS * lSlope);
+    //interpolate blue
+    lSlope := (lNodeRA.nodes[lI+1].rgba.rgbBlue-lNodeRA.nodes[lI].rgba.rgbBlue)/lSpace;
+    for lS := 1 to lSpace do
+      lCLUT[lNodeRA.nodes[lI].Intensity+lS].rgbBlue  :=lNodeRA.nodes[lI].rgba.rgbBlue + round(lS * lSlope);
+    //interpolate alpha
+    lSlope := (lNodeRA.nodes[lI+1].rgba.rgbreserved-lNodeRA.nodes[lI].rgba.rgbreserved)/lSpace;
+    for lS := 1 to lSpace do
+      lCLUT[lNodeRA.nodes[lI].Intensity+lS].rgbreserved  :=lNodeRA.nodes[lI].rgba.rgbreserved + round(lS * lSlope);
+  end;
+
+  //need to check this works with overlays...
+  //TColor2RGBA(GLForm1.GLSceneViewer1.Buffer.BackgroundColor,Q);
+  //Q.rgbReserved := 0;
+  //for lI := 0 to 255 do
+  //  if lCLUT[lI].rgbReserved = 0 then
+  //    lCLUT[lI] := Q;
+end;
+
+(*procedure GenerateLUT(lNodeRA: TCLUTnodeRA; lNodes: integer; var lCLUT: TCLUT);
+var
+  lSlope: single;
+  lSpace,lI,lIprev,lS: integer;
+  lMin,lMax: TCLUTnode;
+begin
+  for lI := 0 to 255 do begin
+    lCLUT[lI] := RGBA(lI,lI,0,128);
+  end;
+end; *)
+
+(*procedure LinearMinMaxCLUT(lMin,lMax: TGLRGBQuad; var lCLUT: TLUT);
+//creates linear RGBA values from minimum to maximum
+var
+  lNodeRA: TCLUTrec;
+begin
+  lNodeRA.nodes[0].intensity := 0;
+  lNodeRA.nodes[0].rgba := lMin;
+  lNodeRA.nodes[1].intensity := 255;
+  lNodeRA.nodes[1].rgba := lMax;
+  lNodeRA.numnodes := 2;
+  GenerateLUT(lNodeRA,lCLUT);
+end;*)
+
+(*procedure AutoContrast (var lCLUTrec: TCLUTrec);
+begin
+  lCLUTrec.nodes[0] := node(0,0,0,0,0);
+  {$IFDEF ENABLERAYCAST}
+  lCLUTrec.nodes[1] := node(255,255,255,255,168);
+  {$ELSE}
+  lCLUTrec.nodes[1] := node(255,255,255,255,100);
+  {$ENDIF}
+  lCLUTrec.numnodes := 2;
+  lCLUTrec.min := 0;
+  lCLUTrec.max := 0;
+  //RangeRec(gTexture3D.MinThreshScaled,gTexture3D.MaxThreshScaled);
+end; *)
+
+procedure AutoContrast (var lCLUTrec: TCLUTrec);
+begin
+  lCLUTrec.nodes[0] := node(0,0,0,0,0);
+  lCLUTrec.nodes[1] := node(128,128,128,128,84);
+  lCLUTrec.nodes[2] := node(255,255,255,255,168);
+  lCLUTrec.numnodes := 3;
+  lCLUTrec.min := 0;
+  lCLUTrec.max := 0;
+  //RangeRec(gTexture3D.MinThreshScaled,gTexture3D.MaxThreshScaled);
+end;
+
+procedure CLUT2TLUT(lFilename: string; var lLUT: TLUT; var lCLUTrec: TCLUTrec);
+begin
+  if not CLUT2disk(true, lFilename,lCLUTrec) then
+    exit;
+  GenerateLUT(lCLUTrec, lLUT);
+end;
+
+
+initialization
+AutoContrast(gCLUTrec);
+end.
+