home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / ma_1995 / 05 / ami019a.txt < prev    next >
Text File  |  1997-04-07  |  398b  |  39 lines
  1. REM Przeliczanie HSV na RGB
  2.  
  3. REM H [0-360], S [0-100], V [0-100]
  4.  
  5.  
  6.  
  7. INPUT H
  8.  
  9. INPUT S
  10.  
  11. INPUT V
  12.  
  13.     S=S/100
  14.  
  15.     V=V/100
  16.  
  17.     H1=H/60
  18.  
  19. I=INT(H1)
  20.  
  21. F=H1-I
  22.  
  23. T=V*(1-S):U=V*(1-S*F):W=V*(1-S*(1--F))
  24.  
  25.     IF I=0 THEN R=V:G=W:B=T
  26.  
  27.     IF I=1 THEN R=U:G=V:B=T
  28.  
  29.     IF I=2 THEN R=T:G=V:B=W
  30.  
  31.     IF I=3 THEN R=T:G=U:B=V
  32.  
  33.     IF I=4 THEN R=W:G=T:B=V
  34.  
  35.     IF I=5 THEN R=V:G=T:B=U
  36.  
  37. PRINT "R,G,B=";INT(R*15+0.5),INT(G*15+0.5),INT(B*15+0.5)
  38.  
  39.