Code: Select all
--- wings_init.erl Tue Apr 12 19:31:03 CEST 2005
+++ wings_init.erl.ds Tue Nov 07 23:07:58 CET 2006
@@ -19,7 +19,7 @@
-include("wings.hrl").
init() ->
- macosx_workaround(),
+% macosx_workaround(),
os:putenv("SDL_HAS3BUTTONMOUSE", "true"),
wings_pref:set_default(window_size, {780,570}),
--- wings_color.erl Sun Jan 23 10:34:56 CET 2005
+++ wings_color.erl.ds Tue Nov 07 23:07:57 CET 2006
@@ -137,6 +137,11 @@
HSV -> HSV
end.
+safe_div(Q, D) ->
+ case D == 0.0 of
+ true -> throw(badarith);
+ false -> Q / D end.
+
internal_rgb_to_hsv(R, G, B) ->
Max = lists:max([R,G,B]),
Min = lists:min([R,G,B]),
@@ -143,14 +148,21 @@
V = Max,
{Hue,Sat} = try
{if
- Min == B -> (G-Min)/(R+G-2.0*Min);
- Min == R -> (1.0+(B-Min)/(B+G-2.0*Min));
- Min == G -> (2.0+(R-Min)/(B+R-2.0*Min))
- end*120,(Max-Min)/Max}
+ Min == B -> safe_div(G-Min, R+G-2.0*Min); %(G-Min)/(R+G-2.0*Min);
+ Min == R -> 1.0+safe_div(B-Min, B+G-2.0*Min); %(1.0+(B-Min)/(B+G-2.0*Min));
+ Min == G -> 2.0+safe_div(R-Min, B+R-2.0*Min) %(2.0+(R-Min)/(B+R-2.0*Min))
+ end*120,safe_div(Max-Min, Max)} %(Max-Min)/Max}
catch
- error:badarith ->
+% error:badarith ->
+ badarith ->
{undefined,0.0}
end,
+% {Hue, Sat} = case Max == 0.0 of
+% false -> {if Min == B -> (G-Min)/(R+G-2.0*Min);
+% Min == R -> (1.0+(B-Min)/(B+G-2.0*Min));
+% Min == G -> (2.0+(R-Min)/(B+R-2.0*Min)) end*120,
+% (Max-Min)/Max};
+% true -> {undefined, 0.0} end,
{Hue,Sat,V}.
hsv_to_rgb(H, S, V) ->
vtech wrote: I've tested one more configuration (Octane/R12k/300/V6) and found one bug: It works only for the user root. I'm not sure why.
vtech wrote: libgcc_s.so.1 is in lib/esdl-0.96.0626/priv together with SDL and sdl_driver and LD_LIBRARY_PATH is set accordingly