From ae676f26d9689b4b696615d7aebe0b7e038bf214 Mon Sep 17 00:00:00 2001 From: zueuk Date: Sat, 31 Dec 2005 08:30:50 +0000 Subject: [PATCH] removed some unused stuff --- 2.10/Source/FormRender.pas | 4 - 2.10/Source/Main.pas | 4 +- 2.10/Source/Sheep.dfm | 186 ------------------------------------- 2.10/Source/Sheep.pas | 137 --------------------------- 4 files changed, 1 insertion(+), 330 deletions(-) delete mode 100644 2.10/Source/Sheep.dfm delete mode 100644 2.10/Source/Sheep.pas diff --git a/2.10/Source/FormRender.pas b/2.10/Source/FormRender.pas index 1815a67..7d675d9 100644 --- a/2.10/Source/FormRender.pas +++ b/2.10/Source/FormRender.pas @@ -25,10 +25,6 @@ uses ExtCtrls, Render; // 'use'd only for SizeOf() -//const -// WM_THREAD_COMPLETE = WM_APP + 5437; -// WM_THREAD_TERMINATE = WM_APP + 5438; - type TRenderForm = class(TForm) ProgressBar: TProgressBar; diff --git a/2.10/Source/Main.pas b/2.10/Source/Main.pas index 74c3c3f..7696983 100644 --- a/2.10/Source/Main.pas +++ b/2.10/Source/Main.pas @@ -31,14 +31,12 @@ uses const PixelCountMax = 32768; - WM_THREAD_COMPLETE = WM_APP + 5437; { Just a magic number } - WM_PROGRESS_UPDATE = WM_APP + 5438; { Just a magic number } RS_A1 = 0; RS_DR = 1; RS_XO = 2; RS_VO = 3; - AppVersionString = 'Apophysis 2.03c pre-release 5'; + AppVersionString = 'Apophysis 2.03c'; type TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, msZoomOutWindowMove, msDrag, msDragMove, msRotate, msRotateMove); diff --git a/2.10/Source/Sheep.dfm b/2.10/Source/Sheep.dfm deleted file mode 100644 index ef8bb74..0000000 --- a/2.10/Source/Sheep.dfm +++ /dev/null @@ -1,186 +0,0 @@ -object SheepDialog: TSheepDialog - Left = 478 - Top = 274 - BorderStyle = bsDialog - Caption = 'Post Sheep' - ClientHeight = 312 - ClientWidth = 240 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - Icon.Data = { - 0000010001001010000001000800680500001600000028000000100000002000 - 0000010008000000000000000000480000004800000000010000000000000402 - 0400846E7C005C4E5C002C323C00141A2C00C4AAC4000C0E0C009C8E9C00AC5E - B4005C5A5C00544654001C121C00745E6C007C828400443A4400141614002426 - 2400140E0C000C0A0400241A2400AC96A40074666C00847A84005C667C00443E - 44000C0604009C828C00140E1C00846A8400946E9400844684003C2E4400DCD6 - DC009492BC006C5A640054565400242224004C424C00040604008C6E9C006C4E - 7C001C222C00ACBADC000C121C00646264001C161400141214002C1A2400BC9E - AC007C6A7C00444254009C869C0084727C0064567400342E34001C1A1C00C4AE - C4000C0E14009C8EA400645E64004C4E640074626C008C82A4004C3644001416 - 1C002C2A2C00140E14000C0A0C00241E2400B496B400746A7C00947A8C00646A - 8C00444244000C0614009C82940014121C00846A8C003C3634009496BC005456 - 6C0004060C001C161C00000077003862FF00000BFF00A714FF000000FF00E000 - C70070002700ED00F60077007700D800E400110027001A00F60000007700E001 - 000070000000ED0015007700000000010900000003000000100000000000A814 - B2000E0017001A00F50000007700380100000000000001000000000000000000 - 3800000000001500A70000000000A800E000C50070001200ED0000007700B010 - 20000E0000001A00000000000000000020000000000015000000000000008500 - 0C00F4000000F5000E007700000000A8A40000C4C3000012D900000077000000 - D8000000C300150012000000000085380000F4C50000F512000077000000A1BF - 0000F4ED0000F5D600007777000008700200064F7F0015D900000077000038FF - E80000FFC300A7FF120000FF0000014B0000003B000000D4000000770000010D - 38000045C60000D412000077000038008D00C6004A001200D4000000770096C4 - A40039C6C300E7D4D900777777009E620200390B7F00E7140000770000003C82 - 20000000C600A7001200000000001C00230039000400E7000000770000000000 - 2300000004000000000000000000B0CC75000EF405001A860700000001003818 - 88000045C400A7D412000077000001BCBD0000024400007AD70000005A000888 - 6200C6C50B00121214000000000040006200F9000B0012001400000000004001 - F800F9009500120033000000000009002F0048004200E900D70077005A00381C - 620030C50B00E812140077000000FF000100FF000000FF000000FF0000009E40 - 000039F90000E71200007700000012BFC400EBEDC60041D6D400007777008000 - C4006A4FC6001AD9D40000777700D9FF0C0057FF4500E7FFD70077FF5A001C18 - 620039450B00E7D4140077770000AF5D020079A10000D4D400007777000023B8 - 000004F400000086000000000000008282000000000000000000000000000000 - 0000000000000000000000000000000000002626000000000000000000002600 - 26264019260026000026002600262626002D0F002600262E2F26262626262600 - 0041245119060B351E1B260000262626261849100032482708450D2E00262651 - 001831162C0E2121281D091043260013364E073338091C2A3C1911264226000B - 3122013A4B470A3E17000000264326003D051A3146023F1F5039002626432600 - 232014300C294213034351262626514329234918152F0000292B190026262651 - 51000000410F26004C04512626262626002626062E1900262600265119260000 - 0000002600000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000} - OldCreateOrder = False - Position = poMainFormCenter - OnCreate = FormCreate - OnDestroy = FormDestroy - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object Label1: TLabel - Left = 16 - Top = 162 - Width = 25 - Height = 13 - Caption = 'Nick:' - end - object Label2: TLabel - Left = 16 - Top = 194 - Width = 25 - Height = 13 - Caption = 'URL:' - end - object Label3: TLabel - Left = 16 - Top = 226 - Width = 49 - Height = 13 - Caption = 'Password:' - end - object lblLink: TLabel - Left = 16 - Top = 262 - Width = 209 - Height = 13 - Alignment = taCenter - AutoSize = False - Caption = 'Creative Commons License' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlue - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsUnderline] - ParentFont = False - OnClick = lblLinkClick - end - object lblLicense: TLabel - Left = 16 - Top = 250 - Width = 209 - Height = 13 - Alignment = taCenter - AutoSize = False - Caption = 'Posted sheep are distributed under a' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - end - object Button1: TButton - Left = 40 - Top = 282 - Width = 75 - Height = 25 - Caption = 'Upload' - ModalResult = 1 - TabOrder = 4 - OnClick = Button1Click - end - object Button2: TButton - Left = 128 - Top = 282 - Width = 75 - Height = 25 - Caption = 'Cancel' - Default = True - ModalResult = 2 - TabOrder = 0 - end - object PrevPnl: TPanel - Left = 37 - Top = 5 - Width = 162 - Height = 122 - BevelOuter = bvLowered - Caption = 'PrevPnl' - TabOrder = 5 - object PreviewImage: TImage - Left = 1 - Top = 1 - Width = 160 - Height = 120 - Align = alClient - IncrementalDisplay = True - end - end - object txtNick: TEdit - Left = 72 - Top = 160 - Width = 153 - Height = 21 - TabOrder = 1 - end - object txtURL: TEdit - Left = 72 - Top = 192 - Width = 153 - Height = 21 - TabOrder = 2 - end - object txtPassword: TEdit - Left = 72 - Top = 224 - Width = 153 - Height = 21 - TabOrder = 3 - end - object ScrollBar: TScrollBar - Left = 16 - Top = 136 - Width = 209 - Height = 13 - LargeChange = 10 - PageSize = 0 - TabOrder = 6 - OnChange = ScrollBarChange - end -end diff --git a/2.10/Source/Sheep.pas b/2.10/Source/Sheep.pas deleted file mode 100644 index deaf513..0000000 --- a/2.10/Source/Sheep.pas +++ /dev/null @@ -1,137 +0,0 @@ -{ - Apophysis Copyright (C) 2001-2004 Mark Townsend - - 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 - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -} -unit Sheep; - -interface - -uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, - StdCtrls, ExtCtrls, Global, ControlPoint, Render; - -type - TSheepDialog = class(TForm) - Button1: TButton; - Button2: TButton; - PrevPnl: TPanel; - PreviewImage: TImage; - txtNick: TEdit; - Label1: TLabel; - Label2: TLabel; - txtURL: TEdit; - Label3: TLabel; - txtPassword: TEdit; - ScrollBar: TScrollBar; - lblLicense: TLabel; - lblLink: TLabel; - procedure FormShow(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure FormDestroy(Sender: TObject); - procedure Button1Click(Sender: TObject); - procedure ScrollBarChange(Sender: TObject); - procedure lblLinkClick(Sender: TObject); - private - Render: TRenderer; - bm: TBitmap; - - procedure DrawPreview; - { Private declarations } - public - cp: TControlPoint; - { Public declarations } - end; - -var - SheepDialog: TSheepDialog; - -implementation - -uses Main, cmap, ShellAPI; - -{$R *.DFM} - -procedure TSheepDialog.DrawPreview; -begin - Render.Stop; - cp.Width := PreviewImage.Width; - cp.Height := PreviewImage.Height; - cp.sample_density := 10; - cp.spatial_oversample := 2; - cp.spatial_filter_radius := 0.4; - cp.Zoom := 0; - cp.center[0] := 0; - cp.center[1] := 0; - cp.pixels_per_unit := 60; - cp.gamma := 4; - cp.brightness := 4; - cp.vibrancy := 1; - GetCMap(cp.cmapindex, cp.hue_rotation, cp.cmap); - Render.Compatibility := compatibility; - Render.SetCP(cp); - Render.Render; - BM.Assign(Render.GetImage); - PreviewImage.Picture.Graphic := bm; -end; - -procedure TSheepDialog.FormShow(Sender: TObject); -var - i: integer; -begin - scrollbar.position := 0; - txtNick.text := MainCp.nick; - txtURL.text := MainCp.URL; - txtPassword.text := SheepPW; - cp.copy(MainCp); - for i := 0 to 2 do cp.background[i] := 0; - DrawPreview; -end; - -procedure TSheepDialog.FormCreate(Sender: TObject); -begin - bm := TbitMap.Create; - cp := TControlPoint.Create; - Render := TRenderer.Create; -end; - -procedure TSheepDialog.FormDestroy(Sender: TObject); -begin - bm.free; - cp.free; - Render.free; -end; - -procedure TSheepDialog.Button1Click(Sender: TObject); -begin - SheepNick := txtNick.Text; - SheepURL := txtURL.Text; - SheepPW := txtPassword.Text; -end; - -procedure TSheepDialog.ScrollBarChange(Sender: TObject); -begin - cp.hue_rotation := ScrollBar.Position / 100; - DrawPreview; -end; - -procedure TSheepDialog.lblLinkClick(Sender: TObject); -begin - ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://creativecommons.org/licenses/by-sa/1.0/'), - nil, nil, SW_SHOWNORMAL); -end; - -end. -