Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CodeName "HSV to Col Chan"
- var r, g, b;
- var h; h = extvalue(0,1);
- if (h > 0.99) goto white;
- var i; i = int(h * 6);
- var f; f = h * 6 - i;
- var q; q = (1 - f);
- var case; case = int(i) % 6
- if (case = 0) goto caseA;
- if (case = 1) goto caseB;
- if (case = 2) goto caseC;
- if (case = 3) goto caseD;
- if (case = 4) goto caseE;
- if (case = 5) goto caseF;
- final:
- ColorChannel.0.R = r * 255;
- ColorChannel.0.G = g * 255;
- ColorChannel.0.B = b * 255;
- exit
- white:
- ColorChannel.0.R = 255
- ColorChannel.0.G = 255
- ColorChannel.0.B = 255
- exit
- caseA:
- r = 1;
- g = f;
- b = 0;
- goto final;
- caseB:
- r = q;
- g = 1;
- b = 0;
- goto final;
- caseC:
- r = 0;
- g = 1;
- b = f;
- goto final;
- caseD:
- r = 0;
- g = q;
- b = 1;
- goto final;
- caseE:
- r = f;
- g = 0;
- b = 1;
- goto final;
- caseF:
- r = 1;
- g = 0;
- b = q;
- goto final;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement