REM Przeliczanie HSV na RGB

REM H [0-360], S [0-100], V [0-100]



INPUT H

INPUT S

INPUT V

	S=S/100

	V=V/100

	H1=H/60

I=INT(H1)

F=H1-I

T=V*(1-S):U=V*(1-S*F):W=V*(1-S*(1--F))

	IF I=0 THEN R=V:G=W:B=T

	IF I=1 THEN R=U:G=V:B=T

	IF I=2 THEN R=T:G=V:B=W

	IF I=3 THEN R=T:G=U:B=V

	IF I=4 THEN R=W:G=T:B=V

	IF I=5 THEN R=V:G=T:B=U

PRINT "R,G,B=";INT(R*15+0.5),INT(G*15+0.5),INT(B*15+0.5)