index : 0x2lib

        

            
            
        
        
0
1
2
3run :: () -> bool {
4    /** Test: HSL routines */
5
6    hsl_string := "154 87 53";
7    hsl, ok := string_to_hsl(hsl_string);
8    ass(ok);
9
10    rgb_hex := hsl_to_rgb_hex(hsl_string);
11    ass(rgb_hex, "#1FEF95");
12
13    rgb := hsl_to_rgb(hsl);
14    ass(rgb, RGB.{ 31, 239, 149 });
15
16
17    h, s, l := hsl_to_integers(hsl);
18    hsl = integers_to_hsl(h, s, l);
19    ass(hsl, HSL.{ 154, 87, 53 });
20
21
22    /** Test: RGB routines */
23
24    rgb_string := "#C0FFEE";
25    rgb, ok = string_to_rgb(rgb_string);
26    ass(ok);
27
28    hsl = rgb_to_hsl(rgb);
29    ass(hsl, HSL.{ 164, 100, 88 });
30
31    r, g, b := rgb_to_integers(rgb);
32    rgb = integers_to_rgb(r, g, b);
33    ass(rgb, RGB.{ 192, 255, 238 });
34
35    return true;
36}
37
38
39#scope_file
40
41
42ass :: (a: RGB, b: RGB, loc := #caller_location) -> bool #expand {
43    ok := true;
44    ok &= a.r == b.r;
45    ok &= a.g == b.g;
46    ok &= a.b == b.b;
47    if !ok then #insert,scope() ASS_CODE;
48}
49
50ass :: (a: HSL, b: HSL, loc := #caller_location) -> bool #expand {
51    ok := true;
52    ok &= a.h == b.h;
53    ok &= a.s == b.s;
54    ok &= a.l == b.l;
55    if !ok then #insert,scope() ASS_CODE;
56}
57
58
59#import "Basic";
60#import "Print_Vars";
61#import,file "../0x2_Colored.jai";
62
63#load "assertion.jai";
64
65