BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  RGB<->HSL          BorlandTalk.com Forum Index -> Delphi Language BASM View previous topic :: View next topic   Author Message Roberto Della Pasqua Guest Posted: Sun May 22, 2005 2:34 pm    Post subject: RGB<->HSL kind group, I like ask if somebody can help to rewrite these SLOW GR32 routines using PCasting and pointers, then I'll forward to the *smart* gr32 community. THANK YOU ANYWAY! Regards, Roberto function HSLtoRGB(H, S, L: Single): TColor32; const OneOverThree = 1 / 3; var M1, M2: Single; R, G, B: Byte; function HueToColor(Hue: Single): Byte; var V: Double; begin Hue := Hue - Floor(Hue); if 6 * Hue < 1 then V := M1 + (M2 - M1) * Hue * 6 else if 2 * Hue < 1 then V := M2 else if 3 * Hue < 2 then V := M1 + (M2 - M1) * (2 / 3 - Hue) * 6 else V := M1; Result := Round(255 * V); end; begin if S = 0 then begin R := Round(255 * L); G := R; B := R; end else begin if L <= 0.5 then M2 := L * (1 + S) else M2 := L + S - L * S; M1 := 2 * L - M2; R := HueToColor(H + OneOverThree); G := HueToColor(H); B := HueToColor(H - OneOverThree) end; Result := Color32(R, G, B, 255); end; procedure RGBtoHSL(RGB: TColor32; out H, S, L: Single); var R, G, B, D, Cmax, Cmin: Single; begin R := RedComponent(RGB) / 255; G := GreenComponent(RGB) / 255; B := BlueComponent(RGB) / 255; Cmax := Max(R, Max(G, B)); Cmin := Min(R, Min(G, B)); L := (Cmax + Cmin) / 2; if Cmax = Cmin then begin H := 0; S := 0 end else begin D := Cmax - Cmin; if L < 0.5 then S := D / (Cmax + Cmin) else S := D / (2 - Cmax - Cmin); if R = Cmax then H := (G - B) / D else if G = Cmax then H := 2 + (B - R) / D else H := 4 + (R - G) / D; H := H / 6; if H < 0 then H := H + 1 end; end; Back to top Mr. X Guest Posted: Sun May 22, 2005 3:33 pm    Post subject: Re: RGB<->HSL Hey You should also forward this to the GR32 newsgroup X "Roberto Della Pasqua" <roberto AT dellapasqua.com> wrote Quote: kind group, I like ask if somebody can help to rewrite these SLOW GR32 routines using PCasting and pointers, then I'll forward to the *smart* gr32 community. THANK YOU ANYWAY! Regards, Roberto function HSLtoRGB(H, S, L: Single): TColor32; const OneOverThree = 1 / 3; var M1, M2: Single; R, G, B: Byte; function HueToColor(Hue: Single): Byte; var V: Double; begin Hue := Hue - Floor(Hue); if 6 * Hue < 1 then V := M1 + (M2 - M1) * Hue * 6 else if 2 * Hue < 1 then V := M2 else if 3 * Hue < 2 then V := M1 + (M2 - M1) * (2 / 3 - Hue) * 6 else V := M1; Result := Round(255 * V); end; begin if S = 0 then begin R := Round(255 * L); G := R; B := R; end else begin if L <= 0.5 then M2 := L * (1 + S) else M2 := L + S - L * S; M1 := 2 * L - M2; R := HueToColor(H + OneOverThree); G := HueToColor(H); B := HueToColor(H - OneOverThree) end; Result := Color32(R, G, B, 255); end; procedure RGBtoHSL(RGB: TColor32; out H, S, L: Single); var R, G, B, D, Cmax, Cmin: Single; begin R := RedComponent(RGB) / 255; G := GreenComponent(RGB) / 255; B := BlueComponent(RGB) / 255; Cmax := Max(R, Max(G, B)); Cmin := Min(R, Min(G, B)); L := (Cmax + Cmin) / 2; if Cmax = Cmin then begin H := 0; S := 0 end else begin D := Cmax - Cmin; if L < 0.5 then S := D / (Cmax + Cmin) else S := D / (2 - Cmax - Cmin); if R = Cmax then H := (G - B) / D else if G = Cmax then H := 2 + (B - R) / D else H := 4 + (R - G) / D; H := H / 6; if H < 0 then H := H + 1 end; end; Back to top Roberto Della Pasqua Guest Posted: Sun May 22, 2005 3:49 pm    Post subject: Re: RGB<->HSL I'll forward the received help, Soumitra nobody can help in GR32, is GR32 asking help here :) Bye ^^ "Mr. X" <no (AT) mail (DOT) here> wrote Quote: Hey You should also forward this to the GR32 newsgroup X "Roberto Della Pasqua" <roberto AT dellapasqua.com> wrote in message news:4290975d$1 (AT) newsgroups (DOT) borland.com... kind group, I like ask if somebody can help to rewrite these SLOW GR32 routines using PCasting and pointers, then I'll forward to the *smart* gr32 community. THANK YOU ANYWAY! Regards, Roberto function HSLtoRGB(H, S, L: Single): TColor32; const OneOverThree = 1 / 3; var M1, M2: Single; R, G, B: Byte; function HueToColor(Hue: Single): Byte; var V: Double; begin Hue := Hue - Floor(Hue); if 6 * Hue < 1 then V := M1 + (M2 - M1) * Hue * 6 else if 2 * Hue < 1 then V := M2 else if 3 * Hue < 2 then V := M1 + (M2 - M1) * (2 / 3 - Hue) * 6 else V := M1; Result := Round(255 * V); end; begin if S = 0 then begin R := Round(255 * L); G := R; B := R; end else begin if L <= 0.5 then M2 := L * (1 + S) else M2 := L + S - L * S; M1 := 2 * L - M2; R := HueToColor(H + OneOverThree); G := HueToColor(H); B := HueToColor(H - OneOverThree) end; Result := Color32(R, G, B, 255); end; procedure RGBtoHSL(RGB: TColor32; out H, S, L: Single); var R, G, B, D, Cmax, Cmin: Single; begin R := RedComponent(RGB) / 255; G := GreenComponent(RGB) / 255; B := BlueComponent(RGB) / 255; Cmax := Max(R, Max(G, B)); Cmin := Min(R, Min(G, B)); L := (Cmax + Cmin) / 2; if Cmax = Cmin then begin H := 0; S := 0 end else begin D := Cmax - Cmin; if L < 0.5 then S := D / (Cmax + Cmin) else S := D / (2 - Cmax - Cmin); if R = Cmax then H := (G - B) / D else if G = Cmax then H := 2 + (B - R) / D else H := 4 + (R - G) / D; H := H / 6; if H < 0 then H := H + 1 end; end; Back to top Frank Guest Posted: Mon May 23, 2005 7:32 am    Post subject: Re: RGB<->HSL Quote: I like ask if somebody can help to rewrite these SLOW GR32 routines using PCasting and pointers, then I'll forward to the *smart* gr32 community. The slowdown is in other things. Replace the multiplications with shifts and adds/subtracts (eg 255 * n = (n shl - n , inline the function calls, replace divisions with multiplications (but shifts&adds are even much faster). Max & Min should be replaced by (inlined) Fastcode versions. The speedup will be around 10 times. No pointers/casts required. Back to top Mr. X Guest Posted: Wed May 25, 2005 6:23 am    Post subject: Re: RGB<->HSL Hey Im working on the reverse method ... ill send you in a day or two., Please be patient till then Regards X :) "Roberto Della Pasqua" <roberto AT dellapasqua.com> wrote Quote: I'll forward the received help, Soumitra nobody can help in GR32, is GR32 asking help here :) Bye ^^ "Mr. X" <no (AT) mail (DOT) here> wrote in message news:4290a65a (AT) newsgroups (DOT) borland.com... Hey You should also forward this to the GR32 newsgroup X "Roberto Della Pasqua" <roberto AT dellapasqua.com> wrote in message news:4290975d$1 (AT) newsgroups (DOT) borland.com... kind group, I like ask if somebody can help to rewrite these SLOW GR32 routines using PCasting and pointers, then I'll forward to the *smart* gr32 community. THANK YOU ANYWAY! Regards, Roberto function HSLtoRGB(H, S, L: Single): TColor32; const OneOverThree = 1 / 3; var M1, M2: Single; R, G, B: Byte; function HueToColor(Hue: Single): Byte; var V: Double; begin Hue := Hue - Floor(Hue); if 6 * Hue < 1 then V := M1 + (M2 - M1) * Hue * 6 else if 2 * Hue < 1 then V := M2 else if 3 * Hue < 2 then V := M1 + (M2 - M1) * (2 / 3 - Hue) * 6 else V := M1; Result := Round(255 * V); end; begin if S = 0 then begin R := Round(255 * L); G := R; B := R; end else begin if L <= 0.5 then M2 := L * (1 + S) else M2 := L + S - L * S; M1 := 2 * L - M2; R := HueToColor(H + OneOverThree); G := HueToColor(H); B := HueToColor(H - OneOverThree) end; Result := Color32(R, G, B, 255); end; procedure RGBtoHSL(RGB: TColor32; out H, S, L: Single); var R, G, B, D, Cmax, Cmin: Single; begin R := RedComponent(RGB) / 255; G := GreenComponent(RGB) / 255; B := BlueComponent(RGB) / 255; Cmax := Max(R, Max(G, B)); Cmin := Min(R, Min(G, B)); L := (Cmax + Cmin) / 2; if Cmax = Cmin then begin H := 0; S := 0 end else begin D := Cmax - Cmin; if L < 0.5 then S := D / (Cmax + Cmin) else S := D / (2 - Cmax - Cmin); if R = Cmax then H := (G - B) / D else if G = Cmax then H := 2 + (B - R) / D else H := 4 + (R - G) / D; H := H / 6; if H < 0 then H := H + 1 end; end; Back to top Roberto Della Pasqua Guest Posted: Wed May 25, 2005 9:03 am    Post subject: Re: RGB<->HSL you are so kind, thank you! "Mr. X" <no (AT) mail (DOT) here> wrote Quote: Hey Im working on the reverse method ... ill send you in a day or two., Please be patient till then Regards X :) "Roberto Della Pasqua" <roberto AT dellapasqua.com> wrote in message news:4290a8ea (AT) newsgroups (DOT) borland.com... I'll forward the received help, Soumitra nobody can help in GR32, is GR32 asking help here :) Bye ^^ "Mr. X" <no (AT) mail (DOT) here> wrote in message news:4290a65a (AT) newsgroups (DOT) borland.com... Hey You should also forward this to the GR32 newsgroup X "Roberto Della Pasqua" <roberto AT dellapasqua.com> wrote in message news:4290975d$1 (AT) newsgroups (DOT) borland.com... kind group, I like ask if somebody can help to rewrite these SLOW GR32 routines using PCasting and pointers, then I'll forward to the *smart* gr32 community. THANK YOU ANYWAY! Regards, Roberto function HSLtoRGB(H, S, L: Single): TColor32; const OneOverThree = 1 / 3; var M1, M2: Single; R, G, B: Byte; function HueToColor(Hue: Single): Byte; var V: Double; begin Hue := Hue - Floor(Hue); if 6 * Hue < 1 then V := M1 + (M2 - M1) * Hue * 6 else if 2 * Hue < 1 then V := M2 else if 3 * Hue < 2 then V := M1 + (M2 - M1) * (2 / 3 - Hue) * 6 else V := M1; Result := Round(255 * V); end; begin if S = 0 then begin R := Round(255 * L); G := R; B := R; end else begin if L <= 0.5 then M2 := L * (1 + S) else M2 := L + S - L * S; M1 := 2 * L - M2; R := HueToColor(H + OneOverThree); G := HueToColor(H); B := HueToColor(H - OneOverThree) end; Result := Color32(R, G, B, 255); end; procedure RGBtoHSL(RGB: TColor32; out H, S, L: Single); var R, G, B, D, Cmax, Cmin: Single; begin R := RedComponent(RGB) / 255; G := GreenComponent(RGB) / 255; B := BlueComponent(RGB) / 255; Cmax := Max(R, Max(G, B)); Cmin := Min(R, Min(G, B)); L := (Cmax + Cmin) / 2; if Cmax = Cmin then begin H := 0; S := 0 end else begin D := Cmax - Cmin; if L < 0.5 then S := D / (Cmax + Cmin) else S := D / (2 - Cmax - Cmin); if R = Cmax then H := (G - B) / D else if G = Cmax then H := 2 + (B - R) / D else H := 4 + (R - G) / D; H := H / 6; if H < 0 then H := H + 1 end; end; Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi Language BASM All times are GMT Page 1 of 1   Jump to: Select a forum C++ Builder Newsgroups----------------C++ BuilderC++ Builder (ActiveX)C++ Builder (Announcements)C++ Builder (Command Line Tools)C++ Builder DatabasesC++ Builder Databases (ADO)C++ Builder Databases (Desktop)C++ Builder Databases (InterBase Express)C++ Builder Databases (Multi-Tier)C++ Builder Databases (SQL Servers)C++ Builder (Graphics)C++ Builder (IDE)C++ Builder (Internet)C++ Builder (Internet Socket)C++ Builder (Internet Web)C++ Builder (Jobs)C++ Builder (Language)C++ Builder (Language C++)C++ Builder (Compatibility with MFC)C++ Builder (Native API)C++ Builder (Non-Technical)C++ Builder (Students)C++ Builder (Third Party Tools)C++ Builder (Upgrade)C++ Builder (VCL)C++ Builder (VCL Components Usage)C++ Builder (VCL Components Development)C++ Builder (VCL Usage)C++ Builder (WinAPI)C++ Builder Installation Delphi Newsgroups----------------Delphi (General)Delphi ActiveX Controls UsageDelphi ActiveX Controls DevelopmentDelphi As400Delphi DatabasesDelphi Databases (ADO)Delphi Databases (dbExpress)Delphi Databases (Desktop)Delphi Databases (InterBase Express)Delphi Databases (Multi-Tier)Delphi Databases (SQL Servers)Delphi DeploymentDelphi GraphicsDelphi IDEDelphi InternationalizationDelphi InternetDelphi Internet Isapi-WebBrokerDelphi Internet WebSnapDelphi Internet WinsockDelphi JobsDelphi Language BASMDelphi Language ObjectPascalDelphi Model Driven Architecture (General)Delphi Model Driven Architecture (Third Party)Delphi MultimediaDelphi Native APIDelphi Non-TechnicalDelphi ObjectPascalDelphi OLE AutomationDelphi OO designDelphi OpenToolsAPIDelphi Reporting-ChartingDelphi RTLDelphi StudentsDelphi TeamSourceDelphi Thirdparty ToolsDelphi Thirdparty Tools (General)Delphi Thirdparty Tools (IntraWeb)Delphi Thirdparty Tools (RaveReports)Delphi UpgradeDelphi VCLDelphi VCL ComponentsDelphi VCL Components UsingDelphi VCL Components WritingDelphi WebServices SOAPDelphi WinAPIDelphi XMLDelphi Installationcomp.lang.pascal.delphi.components.misccomp.lang.pascal.delphi.components.usagecomp.lang.pascal.delphi.components.writingcomp.lang.pascal.delphi.databasescomp.lang.pascal.delphi.misccomp.sources.delphi JBuilder Newsgroups----------------JBuilderJBuilder AnnouncementsJBuilder Applet IssuesJBuilder As400JBuilder CompilerJBuilder CORBA/RMIJBuilder DatabasesJBuilder DB SwingJBuilder DebuggerJBuilder DeploymentJBuilder DocumentationJBuilder EnterpriseJBuilder HandheldJBuilder IDEJBuilder JavaJBuilder JavaAPIJBuilder Java LanguageJBuilder Java SwingJBuilder Java BeansJBuilder Java Beans UsageJBuilder Java Beans DevelopmentJBuilder JBCLJBuilder JDataStoreJBuilder JobsJBuilder LinuxJBuilder MacintoshJBuilder & MobileSetJBuilder MultiLingual AppsJBuilder Non-TechnicalJBuilder OpenToolsJBuilder Servlets (JSP)JBuilder StudentsJBuilder Team DevelopmentJBuilder Thirdparty ToolsJBuilder UpgradeJBuilder Installation InterBase Newsgroups----------------InterBaseInterBase Bug DiscussionInterBase GeneralInterBase IBConsoleInterBase OpenSourceInterBase ReplicationInterBase SQLInterBase ThirdpartyInterBase Installation Miscellaneous Borland Newsgroups----------------AppCenterAppServerEnteraVisiBroker  You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum Powered by phpBB © 2001, 2006 phpBB Group SEO toolkit © 2004-2006 webmedic.