Skip to content
Browse files

Fix path name for test

tweak coloring
  • Loading branch information...
1 parent 13d3490 commit bfd8e74ead7f8ccf2f18d12e9b5b74cae209ee65 @psyeugenic committed
Showing with 7 additions and 2 deletions.
  1. +7 −2 src/egd_colorscheme.erl
View
9 src/egd_colorscheme.erl
@@ -20,10 +20,15 @@ test(File) ->
egd:filledRectangle(Im, {(I - 1)*20, 0}, {(I - 1)*20 + 19, 20}, egd_colorscheme:select(default, I))
end, lists:seq(1,40)),
B = egd:render(Im),
- egd:save(B, "test.png").
+ egd:save(B, File),
+ egd:destroy(Im),
+ ok.
+% L - low dark, high bright
+% S
-select(_Default, I) -> select(I, 31, 0.8, 0.5, 210).
+select(core1, I) -> select(I, 17, 0.3, 0.3, 200);
+select(_Default, I) -> select(I + 6, 31, 0.8, 0.4, 210).
select(I, Hm, S, L, A) -> egd:color(hsl2rgb({I*Hm rem 360, S, L, A})).
%% color conversions

0 comments on commit bfd8e74

Please sign in to comment.
Something went wrong with that request. Please try again.