Hej Två sekunder sökande på google tog mig fram till: Ja det var ju snabbt jobbat, men nu är det så att FORTRAN kan jag inte mycket om, måste jag läsa den boken också! ok du får nog anstränga dig lite mer. Ja så långt har jag också kommit. jag skulle gissa på att color variablerna är 2d arrayer.. typ en färg matrisFärgomvandling
Jag behöver hjälp med att översätta en NCS färg till RGB eller CMYK.
Någon som har en aning om detta?
/IngoSv: Färgomvandling
Källkod för att konvertera mellan olika färgscheman:
http://www.csit.fsu.edu/~burkardt/f_src/colors/colors.f90
Förteckning över källkodens funktioner:
http://www.csit.fsu.edu/~burkardt/f_src/colors/colors.htmlSv: Färgomvandling
Eller finns det någon där ute som kan både Fortran & VB?
/IngoSv: Färgomvandling
jag har aldrig sett fortran förut men följande kodsnutt:
<code>
subroutine angle_to_rgb ( angle, r, g, b )
real angle
real angle2
real b
real g
real r
</code>
kan man ju gissa skulle vara :
sub angle_to_rgb (angle as double,r as double ,g as double,b as double)
dim angle2 as double
och
<code>
if ( angle < 0.0E+00 ) then
angle = angle + 360.0E+00
end if
</code>
kan man ju gissa att det ska vara:
if angle < 0.0 then
angle = angle +360
end if
och så fortsätter ju hela koden så det borde inte vara så svårt att översätta..
//Roger
Sv: Färgomvandling
Men följande rad ger mig bekymmer.
" color3(1:3) = ( real ( 100 - n ) * color1(1:3) &
+ real ( n ) * color2(1:3) ) / real ( 100 - n )
"
Att color är någon form av array fattar jag, men 1:3 är det första, sista eller alla element i arrayen?
/ingoSv: Färgomvandling
color3(1,3) = (( 100 - n ) * color1(1,3) + n * color2(1,3) / ( 100 - n )
//Roger