Resizing in Photoshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|528\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

dna	Created : 27 February 2013 Resizing in Photoshop
This preovides a basic bit of insight into the inner workings off how the software is structured. {Photoshop version 1.0.1, file: Commands.p This material is (C)Copyright 1990 Adobe Systems Inc. It may not be distributed to third parties.} UNIT UCommands; INTERFACE USES {$LOAD MacIntf.LOAD} MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, {$LOAD UMacApp.LOAD} UObject, UList, UMacApp, {$LOAD UPhotoshop.LOAD} PaletteMgr, UConstants, UVMemory, UPhotoshop, {$LOAD} UProgress; CONST kFileNameLength = 31; TYPE TFileName = STRING [kFileNameLength]; PFileName = ^TFileName; PPlugInInfo = ^TPlugInInfo; HPlugInInfo = ^PPlugInInfo; TPlugInInfo = RECORD fName : Str255; fFileName : TFileName; fKind : ResType; fResourceID: INTEGER; fVersion : INTEGER; fData : LONGINT; fParameters: Handle; fNext : HPlugInInfo END; TPasteMode = (PasteNormal, PasteColorOnly, PasteDarkenOnly, PasteLightenOnly); TPasteControls = RECORD fSrcMin: ARRAY [0..3] OF INTEGER; fSrcMax: ARRAY [0..3] OF INTEGER; fDstMin: ARRAY [0..3] OF INTEGER; fDstMax: ARRAY [0..3] OF INTEGER; fMode : TPasteMode; fBlend : INTEGER; fFuzz : INTEGER; fMat : INTEGER END; PPasteControls = ^TPasteControls; HPasteControls = ^PPasteControls; TBufferCommand = OBJECT (TCommand) fView: TImageView; fDoc : TImageDocument; fBuffer: TChannelArrayList; PROCEDURE TBufferCommand.IBufferCommand (itsCommand: INTEGER; view: TImageView); PROCEDURE TBufferCommand.Free; OVERRIDE; PROCEDURE TBufferCommand.SwapAllChannels; END; TFloatCommand = OBJECT (TBufferCommand) fWasFloating: BOOLEAN; fSwapMask: BOOLEAN; fExactFloat: BOOLEAN; fFloatRect: Rect; fFloatMask: TVMArray; fFloatData: TRGBArrayList; fFloatBelow: TRGBArrayList; PROCEDURE TFloatCommand.IFloatCommand (itsCommand: INTEGER; view: TImageView); PROCEDURE TFloatCommand.Free; OVERRIDE; PROCEDURE TFloatCommand.SwapFloat; PROCEDURE TFloatCommand.MakeMapLegal (VAR map: TLookUpTable); PROCEDURE TFloatCommand.FloatSelection (duplicate: BOOLEAN); PROCEDURE TFloatCommand.ComputeOverlap (VAR r: Rect); PROCEDURE TFloatCommand.CopyOverlapArea (into: BOOLEAN; buffer: TVMArray; image: TVMArray); PROCEDURE TFloatCommand.CopyOverlapAreas (into: BOOLEAN; buffer0: TVMArray; buffer1: TVMArray; buffer2: TVMArray); PROCEDURE TFloatCommand.CopyBelow (into: BOOLEAN); PROCEDURE TFloatCommand.BlendFloatSingle (srcArray: TVMArray; dstArray: TVMArray; maskArray: TVMArray; alphaArray: TVMArray; r1: Rect; r2: Rect; canAbort: BOOLEAN); PROCEDURE TFloatCommand.BlendFloatRGB (src1Array: TVMArray; src2Array: TVMArray; src3Array: TVMArray; dst1Array: TVMArray; dst2Array: TVMArray; dst3Array: TVMArray; maskArray: TVMArray; alphaArray: TVMArray; r1: Rect; r2: Rect; canAbort: BOOLEAN); PROCEDURE TFloatCommand.BlendFloat (canAbort: BOOLEAN); FUNCTION TFloatCommand.CanSelect (VAR r: Rect; VAR mask: TVMArray): OSErr; PROCEDURE TFloatCommand.SelectFloat; PROCEDURE TFloatCommand.UpdateRects (r1, r2: Rect; highlight: BOOLEAN); END; VAR gFirstPSAcquire: HPlugInInfo; gFirstDDAcquire: HPlugInInfo; gFirstBWAcquire: HPlugInInfo; gFirstPSExport : HPlugInInfo; gFirstPSFilter : HPlugInInfo; gFirstDDFilter : HPlugInInfo; PROCEDURE InitPlugInList (kind: ResType; loVersion, hiVersion: INTEGER; VAR first: HPlugInInfo; command: INTEGER); PROCEDURE CheckForNoPlugIns (command: INTEGER); FUNCTION IsPlugIn (name: Str255; first: HPlugInInfo; VAR info: HPlugInInfo): BOOLEAN; PROCEDURE GetCenterPoint (view: TImageView; VAR center: Point); PROCEDURE SetTopLeft (view: TImageView; top, left: INTEGER); PROCEDURE SetCenterPoint (view: TImageView; center: Point); FUNCTION MakeMonochromeArray (rArray, gArray, bArray: TVMArray): TVMArray; FUNCTION CopyHalftoneRect (srcBuffer: TVMArray; r: Rect; depth: INTEGER): TVMArray; PROCEDURE GetPasteControls (doc: TImageDocument; VAR controls: TPasteControls); IMPLEMENTATION {$I UCommands.inc1.p} END. --v

Comments
Wednesday, 27 February 2013, 11:26
Afr0	Where'd you get this?
Wednesday, 27 February 2013, 11:30
Afr0	Nevermind, seems you got it from here: https://www.computerhistory.org/atchm/adobe-photoshop-source-code/ Cool!
Wednesday, 27 February 2013, 11:48
Jayenkai	I'd prefer people use the "Code Snippets" for things they've produced themselves. This is a waste of functionality. Use a link, FFS.
Wednesday, 27 February 2013, 16:25
steve_ancell	I was actually trying to work out what proggy-lingo that snippet is for, it's either something that I'm not familiar with or that source code is a bloomin' mess.
Wednesday, 27 February 2013, 21:35
Afr0	It's Pascal!
Thursday, 28 February 2013, 03:29
waroffice	I always thought PASCAL was a teaching language and not really for production, I guess it works though! Wasn't the window/gui friendly version called Delphi?
Thursday, 28 February 2013, 04:07
steve_ancell	Never used pascal myself and after seeing that code I don't think I want to either.
Thursday, 28 February 2013, 14:38
dna	i also have the source for the actual resizing. It's just as bad. This listing has the wrong title. I was going to post it but it might give the rest of you more headaches even though it shows how Photoshop was, and might be, structured underneath.
Thursday, 28 February 2013, 18:07
9572AD	Pascal, aside from two pointer functions, is the same as C. Or it was classically, anyhow. Who knows what it is today.
Friday, 01 March 2013, 04:29
steve_ancell	9572AD Pascal, aside from two pointer functions, is the same as C. Or it was classically, anyhow. Who knows what it is today. I always thought C was like C++ but without the ++ bit, that code looks bugger-all like C++.
Friday, 01 March 2013, 08:36
9572AD	Pascal has different syntax from C, but the same operations that work the same way (aside from the aforementioned pointer functions) When I went to uni they were still flogging Pascal at the students, and C++ was considered unstable, and Borland made the best compilers, and we used QuattroPro for spreadsheets and WordPerfect for typing, and the Internet was newsgroups, MUDs, BBSs, IRC and FTP servers, and the MegaDrive was brand new.

Comments