options reorganized a bit;

now user can select a wave file to be played after rendering is complete
2006-04-05 11:10:39 +00:00 · 2006-04-05 11:10:39 +00:00 · 25f0756f70
commit 25f0756f70
parent e79d7bc664
6 changed files with 235 additions and 55 deletions
--- a/2.10/Source/FormRender.dfm
+++ b/2.10/Source/FormRender.dfm
@ -193,6 +193,7 @@ object RenderForm: TRenderForm
        '1024'
        '1280'
        '1600'
+        '1920'
        '2048'
        '2560'
        '3200')
--- a/2.10/Source/FormRender.pas
+++ b/2.10/Source/FormRender.pas
@ -22,7 +22,7 @@ interface
 uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ControlPoint, RenderThread, ComCtrls, Math, Buttons, Registry, cmap,
-  ExtCtrls,
+  ExtCtrls, MMSystem,
  Render; // 'use'd only for SizeOf()

 type
@ -174,6 +174,9 @@ begin

  Renderer.SaveImage(FileName);

+  if PlaySoundOnRenderComplete then
+    sndPlaySound(PChar(RenderCompleteSoundFile), SND_FILENAME or SND_NOSTOP or SND_ASYNC);
+
  Renderer.Free;
  Renderer := nil;
  ResetControls;
--- a/2.10/Source/Global.pas
+++ b/2.10/Source/Global.pas
@ -85,6 +85,7 @@ var
  UseFlameBackground, UseTransformColors: boolean;
  EditorBkgColor, ReferenceTriangleColor: integer;
  GridColor1, GridColor2, HelpersColor: integer;
+  AutoEditMode: boolean;
 { Display }
  defSampleDensity, defPreviewDensity: Double;
  defGamma, defBrightness, defVibrancy, defFilterRadius: Double;
@ -110,6 +111,10 @@ var
  KeepBackground: boolean;
  randGradient: Integer;
  defFlameFile: string;
+
+  PlaySoundOnRenderComplete: boolean;
+  RenderCompleteSoundFile: string;
+
  SymmetryType: integer;
  SymmetryOrder: integer;
  SymmetryNVars: integer;
@ -129,7 +134,7 @@ var
  ExportFilter, ExportDensity: Double;
  ExportEstimator, ExportEstimatorMin, ExportEstimatorCurve: double;
  ExportJitters: integer;
-  ExportGammaTresholds: double;
+  ExportGammaTreshold: double;
  OpenFileType: TFileType;
  ResizeOnLoad: Boolean;
  ShowProgress: Boolean;
--- a/2.10/Source/Options.dfm
+++ b/2.10/Source/Options.dfm
@ -1,11 +1,11 @@
 object OptionsForm: TOptionsForm
-  Left = 430
-  Top = 204
+  Left = 540
+  Top = 274
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = 'Options'
-  ClientHeight = 308
-  ClientWidth = 467
+  ClientHeight = 311
+  ClientWidth = 463
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
@ -51,13 +51,13 @@ object OptionsForm: TOptionsForm
      HelpContext = 1
      Caption = 'General'
      object chkConfirmDel: TCheckBox
-        Left = 8
-        Top = 175
+        Left = 136
+        Top = 7
        Width = 121
        Height = 17
        HelpContext = 1005
        Caption = 'Confirm delete'
-        TabOrder = 2
+        TabOrder = 3
      end
      object JPEG: TGroupBox
        Left = 8
@ -65,7 +65,7 @@ object OptionsForm: TOptionsForm
        Width = 121
        Height = 55
        Caption = 'JPEG Quality'
-        TabOrder = 0
+        TabOrder = 2
        object txtJPEGquality: TComboBox
          Left = 16
          Top = 20
@ -83,12 +83,12 @@ object OptionsForm: TOptionsForm
        end
      end
      object chkResize: TCheckBox
-        Left = 8
-        Top = 193
+        Left = 136
+        Top = 25
        Width = 121
        Height = 17
        Caption = 'Resize on load'
-        TabOrder = 3
+        TabOrder = 4
      end
      object GroupBox16: TGroupBox
        Left = 8
@ -96,7 +96,7 @@ object OptionsForm: TOptionsForm
        Width = 121
        Height = 55
        Caption = 'Multithreading'
-        TabOrder = 1
+        TabOrder = 0
        object cbNrTheads: TComboBox
          Left = 16
          Top = 20
@ -122,28 +122,125 @@ object OptionsForm: TOptionsForm
        Items.Strings = (
          'Rotate image'
          'Rotate frame')
-        TabOrder = 4
+        TabOrder = 1
      end
-      object rgReferenceMode: TRadioGroup
-        Left = 288
-        Top = 4
-        Width = 145
-        Height = 69
-        Caption = 'Reference Triangle'
-        ItemIndex = 0
-        Items.Strings = (
-          'Normal'
-          'Proportional'
-          'Wandering (old-style)')
-        TabOrder = 5
-      end
-      object GroupBox1: TGroupBox
+      object GroupBox15: TGroupBox
        Left = 136
+        Top = 96
+        Width = 297
+        Height = 75
+        Caption = 'When render is finished'
+        TabOrder = 5
+        object btnBrowseSound: TSpeedButton
+          Left = 264
+          Top = 41
+          Width = 24
+          Height = 24
+          Hint = 'Browse...'
+          Flat = True
+          Font.Charset = ANSI_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Arial'
+          Font.Style = [fsBold]
+          Glyph.Data = {
+            36030000424D3603000000000000360000002800000010000000100000000100
+            18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
+            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+            FFFF00FFFF00FFFF00FF00000000000000000000000000000000000000000000
+            0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000
+            9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF000000FF00
+            FFFF00FFFF00FFFF00FF0000009FFFFF0000009FCFFF9FCFFF9FCFFF9FCFFF9F
+            CFFF9FCFFF9FCFFF9FCFFF9FCFFF000000FF00FFFF00FFFF00FF0000009FFFFF
+            9FFFFF0000009FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCF
+            FF000000FF00FFFF00FF0000009FFFFF9FFFFF9FFFFF0000009FCFFF9FCFFF9F
+            CFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF9FCFFF000000FF00FF0000009FFFFF
+            9FFFFF9FFFFF9FFFFF0000000000000000000000000000000000000000000000
+            00000000000000FF00FF0000009FFFFF9FFFFF9FFFFF9FFFFF9FFFFF9FFFFF9F
+            FFFF9FFFFF9FFFFF000000FF00FFFF00FFFF00FFFF00FFFF00FF0000009FFFFF
+            9FFFFF9FFFFF9FFFFF9FFFFF9FFFFF9FFFFF9FFFFF9FFFFF000000FF00FFFF00
+            FFFF00FFFF00FFFF00FF0000009FFFFF9FFFFF9FFFFF00000000000000000000
+            0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000
+            000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000
+            00000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+            00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000FF00FFFF00FFFF00FF
+            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0C0C0CFF00FFFF00FFFF00FF0000
+            00FF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+            00FFFF00FF0B0B0B020202000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+          ParentFont = False
+          ParentShowHint = False
+          ShowHint = True
+          OnClick = btnBrowseSoundClick
+        end
+        object btnPlay: TSpeedButton
+          Left = 264
+          Top = 14
+          Width = 24
+          Height = 24
+          Hint = 'Play'
+          Flat = True
+          Font.Charset = ANSI_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Arial'
+          Font.Style = [fsBold]
+          Glyph.Data = {
+            46010000424D4601000000000000460000002800000010000000100000000100
+            08000000000000010000120B0000120B00000400000004000000808080005454
+            540000000000FFFFFF0000000000000000000000000000000000000000000000
+            0000000000000000000000000000000000000000000000000000000000000000
+            0200000000000000000000000000000002020000000000000000000000000000
+            0202020000000000000000000000000002020202000000000000000000000000
+            0202020202000000000000000000000002020202020200000000000000000000
+            0202020202000000000000000000000002020202000000000000000000000000
+            0202020000000000000000000000000002020000000000000000000000000000
+            0200000000000000000000000000000000000000000000000000000000000000
+            00000000000000000000}
+          ParentFont = False
+          ParentShowHint = False
+          ShowHint = True
+          OnClick = btnPlayClick
+        end
+        object Label44: TLabel
+          Left = 10
+          Top = 44
+          Width = 49
+          Height = 13
+          Caption = 'File name:'
+        end
+        object txtSoundFile: TEdit
+          Left = 64
+          Top = 42
+          Width = 193
+          Height = 21
+          HelpContext = 1000
+          ParentShowHint = False
+          ShowHint = False
+          TabOrder = 0
+        end
+        object chkPlaysound: TCheckBox
+          Left = 8
+          Top = 18
+          Width = 81
+          Height = 17
+          Caption = 'Play sound'
+          TabOrder = 1
+        end
+      end
+    end
+    object EditorPage: TTabSheet
+      Caption = 'Editor'
+      ImageIndex = 8
+      object GroupBox1: TGroupBox
+        Left = 8
        Top = 4
        Width = 145
        Height = 138
        Caption = 'Editor Graph'
-        TabOrder = 6
+        TabOrder = 0
        object Label40: TLabel
          Left = 8
          Top = 56
@ -189,7 +286,7 @@ object OptionsForm: TOptionsForm
          Width = 129
          Height = 17
          Caption = 'Use transform color'
-          TabOrder = 1
+          TabOrder = 4
        end
        object chkHelpers: TCheckBox
          Left = 8
@ -199,7 +296,7 @@ object OptionsForm: TOptionsForm
          Caption = 'Helper lines'
          Checked = True
          State = cbChecked
-          TabOrder = 2
+          TabOrder = 6
        end
        object pnlReference: TPanel
          Left = 8
@ -209,7 +306,7 @@ object OptionsForm: TOptionsForm
          Cursor = crHandPoint
          BevelOuter = bvLowered
          Color = clGray
-          TabOrder = 3
+          TabOrder = 1
          OnClick = pnlReferenceClick
        end
        object pnlGridColor1: TPanel
@ -220,7 +317,7 @@ object OptionsForm: TOptionsForm
          Cursor = crHandPoint
          BevelOuter = bvLowered
          Color = clBlack
-          TabOrder = 4
+          TabOrder = 2
          OnClick = pnlGridColor1Click
        end
        object pnlGridColor2: TPanel
@ -231,7 +328,7 @@ object OptionsForm: TOptionsForm
          Cursor = crHandPoint
          BevelOuter = bvLowered
          Color = clBlack
-          TabOrder = 5
+          TabOrder = 3
          OnClick = pnlGridColor2Click
        end
        object pnlHelpersColor: TPanel
@ -242,10 +339,33 @@ object OptionsForm: TOptionsForm
          Cursor = crHandPoint
          BevelOuter = bvLowered
          Color = clGray
-          TabOrder = 6
+          TabOrder = 5
          OnClick = pnlHelpersColorClick
        end
      end
+      object rgReferenceMode: TRadioGroup
+        Left = 160
+        Top = 4
+        Width = 145
+        Height = 69
+        Caption = 'Reference Triangle'
+        ItemIndex = 0
+        Items.Strings = (
+          'Normal'
+          'Proportional'
+          'Wandering (old-style)')
+        TabOrder = 1
+      end
+      object chkAutoEditMode: TCheckBox
+        Left = 160
+        Top = 84
+        Width = 145
+        Height = 17
+        Caption = 'Prefer "Auto" edit mode'
+        Checked = True
+        State = cbChecked
+        TabOrder = 2
+      end
    end
    object DisplayPage: TTabSheet
      Caption = 'Display'
@ -1318,7 +1438,7 @@ object OptionsForm: TOptionsForm
        TabOrder = 0
        object btnDefGradient: TSpeedButton
          Left = 392
-          Top = 16
+          Top = 17
          Width = 24
          Height = 24
          Hint = 'Browse...'
@ -1369,7 +1489,7 @@ object OptionsForm: TOptionsForm
        end
        object txtDefParameterFile: TEdit
          Left = 67
-          Top = 19
+          Top = 18
          Width = 310
          Height = 21
          HelpContext = 1000
@ -1394,7 +1514,7 @@ object OptionsForm: TOptionsForm
        end
        object btnSmooth: TSpeedButton
          Left = 392
-          Top = 16
+          Top = 17
          Width = 24
          Height = 24
          Hint = 'Browse...'
@ -1438,7 +1558,7 @@ object OptionsForm: TOptionsForm
        end
        object txtDefSmoothFile: TEdit
          Left = 67
-          Top = 16
+          Top = 18
          Width = 310
          Height = 21
          HelpContext = 1001
@ -1454,7 +1574,7 @@ object OptionsForm: TOptionsForm
        TabOrder = 3
        object btnRenderer: TSpeedButton
          Left = 392
-          Top = 16
+          Top = 17
          Width = 24
          Height = 24
          Hint = 'Browse...'
@ -1505,7 +1625,7 @@ object OptionsForm: TOptionsForm
        end
        object txtRenderer: TEdit
          Left = 67
-          Top = 19
+          Top = 18
          Width = 310
          Height = 21
          HelpContext = 1000
@ -1523,7 +1643,7 @@ object OptionsForm: TOptionsForm
        TabOrder = 2
        object SpeedButton2: TSpeedButton
          Left = 392
-          Top = 16
+          Top = 17
          Width = 24
          Height = 24
          Hint = 'Browse...'
@ -1574,7 +1694,7 @@ object OptionsForm: TOptionsForm
        end
        object txtLibrary: TEdit
          Left = 67
-          Top = 19
+          Top = 18
          Width = 310
          Height = 21
          HelpContext = 1000
--- a/2.10/Source/Options.pas
+++ b/2.10/Source/Options.pas
@ -1,5 +1,6 @@
 {
     Apophysis Copyright (C) 2001-2004 Mark Townsend
+     Apophysis Copyright (C) 2005-2006 Ronald Hordijk, Piotr Borys, Peter Sdobnov     

     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
@ -22,7 +23,8 @@ interface

 uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ComCtrls, ExtCtrls, Buttons, Registry, Mask, CheckLst;
+  StdCtrls, ComCtrls, ExtCtrls, Buttons, Registry, Mask, CheckLst,
+  MMSystem;

 type
  TOptionsForm = class(TForm)
@ -182,7 +184,10 @@ type
    Label39: TLabel;
    chkShowTransparency: TCheckBox;
    rgTransparency: TRadioGroup;
-    rgReferenceMode: TRadioGroup;
+    GroupBox15: TGroupBox;
+    btnBrowseSound: TSpeedButton;
+    txtSoundFile: TEdit;
+    EditorPage: TTabSheet;
    GroupBox1: TGroupBox;
    Label40: TLabel;
    Label41: TLabel;
@ -195,6 +200,11 @@ type
    pnlGridColor1: TPanel;
    pnlGridColor2: TPanel;
    pnlHelpersColor: TPanel;
+    rgReferenceMode: TRadioGroup;
+    chkAutoEditMode: TCheckBox;
+    chkPlaysound: TCheckBox;
+    btnPlay: TSpeedButton;
+    Label44: TLabel;
    procedure btnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
@ -224,6 +234,8 @@ type
    procedure pnlGridColor1Click(Sender: TObject);
    procedure pnlGridColor2Click(Sender: TObject);
    procedure pnlHelpersColorClick(Sender: TObject);
+    procedure btnBrowseSoundClick(Sender: TObject);
+    procedure btnPlayClick(Sender: TObject);
  private
    { Private declarations }
  public
@ -283,6 +295,10 @@ begin
    cbNrTheads.ItemIndex := 0
  else
    cbNrTheads.text := intTostr(NrTreads);
+  chkAutoEditMode.Checked := AutoEditMode;
+
+  chkPlaySound.Checked := PlaySoundOnRenderComplete;
+  txtSoundFile.Text := RenderCompleteSoundFile;

  { Display tab }
  txtSampleDensity.Text := FloatToStr(defSampleDensity);
@ -375,8 +391,6 @@ begin
  end;

  { General tab }
-  defFlameFile := txtDefParameterFile.Text;
-  defSmoothPaletteFile := txtDefSmoothFile.Text;
  JPEGQuality := StrToInt(txtJPEGQuality.text);
  Numtries := StrToInt(txtNumtries.text);
  if NumTries < 1 then Numtries := 1;
@ -393,9 +407,14 @@ begin

  NrTreads := StrToIntDef(cbNrTheads.text, 0);
  ConfirmDelete := chkConfirmDel.Checked;
-  ReferenceMode := rgReferenceMode.ItemIndex;
+
  MainForm_RotationMode := rgRotationMode.ItemIndex;
  ResizeOnLoad := chkResize.checked;
+
+  // Editor
+  ReferenceMode := rgReferenceMode.ItemIndex;
+  AutoEditMode := chkAutoEditMode.Checked;
+
  { Display tab }
  defSampleDensity := StrToFloat(txtSampleDensity.Text);
  if defSampleDensity > 100 then defSampleDensity := 100;
@ -464,6 +483,10 @@ begin

  {Paths}
  defLibrary := txtLibrary.text;
+  defFlameFile := txtDefParameterFile.Text;
+  defSmoothPaletteFile := txtDefSmoothFile.Text;
+  PlaySoundOnRenderComplete := chkPlaySound.Checked;
+  RenderCompleteSoundFile := txtSoundFile.Text;

  Close;
 end;
@ -649,8 +672,6 @@ begin
  begin
    pnlBackColor.Color := AdjustForm.ColorDialog.Color;
    EditorBkgColor := Integer(pnlBackColor.color);
-//    GrphPnl.Color := BackgroundColor;
-//    TriangleView.Invalidate;
  end;
 end;

@ -661,7 +682,6 @@ begin
  begin
    pnlReference.Color := AdjustForm.ColorDialog.Color;
    ReferenceTriangleColor := Integer(pnlReference.color);
-//    TriangleView.Invalidate;
  end;
 end;

@ -672,7 +692,6 @@ begin
  begin
    pnlGridColor1.Color := AdjustForm.ColorDialog.Color;
    GridColor1 := Integer(pnlGridColor1.color);
-//    TriangleView.Invalidate;
  end;
 end;

@ -683,7 +702,6 @@ begin
  begin
    pnlGridColor2.Color := AdjustForm.ColorDialog.Color;
    GridColor2 := Integer(pnlGridColor2.color);
-//    TriangleView.Invalidate;
  end;
 end;

@ -694,9 +712,24 @@ begin
  begin
    pnlHelpersColor.Color := AdjustForm.ColorDialog.Color;
    HelpersColor := Integer(pnlHelpersColor.color);
-//    TriangleView.Invalidate;
  end;
 end;

+procedure TOptionsForm.btnBrowseSoundClick(Sender: TObject);
+begin
+  OpenDialog.Filter := 'Waveform files (*.wav)|*.wav|MIDI files (*.mid)|*.mid';
+  OpenDialog.FileName := '';
+  if OpenDialog.Execute then
+  begin
+    txtSoundFile.text := OpenDialog.FileName;
+  end;
+end;
+
+procedure TOptionsForm.btnPlayClick(Sender: TObject);
+begin
+  if txtSoundFile.text <> '' then
+    sndPlaySound(PChar(txtSoundFile.text), SND_FILENAME or SND_ASYNC);
+end;
+
 end.

--- a/2.10/Source/Regstry.pas
+++ b/2.10/Source/Regstry.pas
@ -82,6 +82,16 @@ begin
      begin
        defSmoothPaletteFile := DefaultPath + 'smooth.ugr';
      end;
+
+      if Registry.ValueExists('PlaySoundOnRenderComplete') then
+        PlaySoundOnRenderComplete := Registry.ReadBool('PlaySoundOnRenderComplete')
+      else
+        PlaySoundOnRenderComplete := false;
+      if Registry.ValueExists('RenderCompleteSoundFile') then
+        RenderCompleteSoundFile := Registry.ReadString('RenderCompleteSoundFile')
+      else
+        RenderCompleteSoundFile := '';
+
      if Registry.ValueExists('ConfirmDelete') then
      begin
        ConfirmDelete := Registry.ReadBool('ConfirmDelete');
@ -628,6 +638,10 @@ if Registry.ValueExists('VariationOptions') then
        ReferenceTriangleColor := Registry.ReadInteger('ReferenceTriangleColor')
      else
        ReferenceTriangleColor := $7f7f7f;
+      if Registry.ValueExists('AutoEditMode') then
+        AutoEditMode := Registry.ReadBool('AutoEditMode')
+      else AutoEditMode := true;
+
    end
    else begin
      EditorBkgColor := $000000;
@ -915,6 +929,9 @@ begin
    begin
      Registry.WriteString('GradientFile', GradientFile);
      Registry.WriteString('SmoothPaletteFile', SmoothPaletteFile);
+      Registry.WriteBool('PlaySoundOnRenderComplete', PlaySoundOnRenderComplete);
+      Registry.WriteString('RenderCompleteSoundFile', RenderCompleteSoundFile);
+
      Registry.WriteBool('ConfirmDelete', ConfirmDelete);
      Registry.WriteInteger('NumTries', NumTries);
      Registry.WriteInteger('TryLength', TryLength);
@ -990,6 +1007,7 @@ begin
      Registry.WriteInteger('GridColor2', GridColor2);
      Registry.WriteInteger('HelpersColor', HelpersColor);
      Registry.WriteInteger('ReferenceTriangleColor', ReferenceTriangleColor);
+      Registry.WriteBool('AutoEditMode', AutoEditMode);
    end;
    { Display }
    if Registry.OpenKey('\Software\' + APP_NAME + '\Display', True) then