#!/bin/bash

exec {bcout}<> <(:)
exec {bcin}> >(exec stdbuf -o0 bc >&$bcout)

cat >&$bcin <<eohsvrgbinit
define void rgb (h,s,v) { scale=0;h=h%360
    i=( h / 60 ) % 6
    scale=20
    f=h/60-i
    l=v*(1-s)
    scale=0
    if (i==0) {          n=v*(1-(1-f)*s);print v/1," ",n/1," ",l/1,"\n"
    }  else if (i==1) {  n=v*(1-f*s)    ;print n/1," ",v/1," ",l/1,"\n"
    }  else if (i==2) {  n=v*(1-(1-f)*s);print l/1," ",v/1," ",n/1,"\n"
    }  else if (i==3) {  n=v*(1-f*s)    ;print l/1," ",n/1," ",v/1,"\n"
    }  else if (i==4) {  n=v*(1-(1-f)*s);print n/1," ",l/1," ",v/1,"\n"
    }  else {            n=v*(1-f*s)    ;print v/1," ",l/1," ",n/1,"\n"
    }
    scale=20
}
define void hsv (r,g,b) { s=0; t=0;
    if (r > g) {
       if (g < b) {
           min=g
       } else {
           min=b
       }
        if (r > b) {
	    max=r
	} else {
	    max=b
	}
    } else {
        if (r < b) {
           min=r
        } else {
           min=b
        }
        if (g > b) {
	    max=g
	} else {
	    max=b
	}
     }
     scale=0
     if (max > min) {
       if (max == r) {
         t= ( 60 * ( g - b ) / ( max - min ) + 360 ) % 360
       } else if (max == g) {
         t= 60 * ( b - r ) / ( max - min ) + 120
       } else {
         t= 60 * ( r - g ) / ( max - min ) + 240
       }
     }
     scale=20
     if ( max > 0 ) {
     	s= 1 - ( min / max )
     }
     scale=0
     print t/1," ",s," ",max,"\n"
     scale=20
}
eohsvrgbinit
rgb() { local -n _re=$4;echo >&$bcin "rgb($1,$2,$3)";read -u $bcout -t 3 -ra _re;}
hsv() { local -n _re=$4;echo >&$bcin "hsv($1,$2,$3)";read -u $bcout -t 3 -ra _re;}