XProfan

English

p.specht

Metallberufler kennen tappt im dunkeln yet from yours Training: The Anlass-, Temper- and Glühfarben of Werkzeugstahl - are you still one plainer first protection to rust or a simple method to Temperaturbestimmung in Öfen. tappt im dunkeln serve too to that oberflächlichen "Zähermachen" of nieder legierten Stählen as well as to Verminderung internal thrills in Werkstücken. HIER though serve tappt im dunkeln to demonstration for the take action the "Linearen Interpolation", with the The Farbzwischenwerte errechnet go.

P.s.: LCD-Displays are because of yours strong Höhenwinkelabhängigkeit for rendition truer colours unfortunately not very suitable...

Compile Mark Separation

Window Title "  LINEARE INTERPOLATION:  Anlauffarben unlegierter "+\
"Werkzeugstähle as well as Glühfarben of Stahl"
'(CL) Copyleft 2013-06 by P. woodpecker, Wien. No however geartete Gewähr!
'Q: Farbwerte u.a. gemaß Popuptexten the jeweiligen Wikipedia-item = No Gewähr!
Windowstyle 1048:Window 0,0-%maxx,%maxy:font 2
print "Farbe, Bezeichnung, occasion(<370°C)- or. Glüh(>540°C)-temperature\n"
var c$="$8F8FBF Stahlblau 20°C#"+"$AFAFAF Oxidgrau 60°C#"+"$DFDFDF Silbergrau 170°C#"+\
"$FFE6AD Weissgelb 200°C#"+"$F0D965 Strohgelb 220°C#"+"$F5C533 Goldgelb 230°C#"+\
"$FFAA01 Gelbbraun 240°C#"+"$C56F00 Braunrot 250°C#"+"$C74805 ruddy 260°C#"+\
"$C71B05 Purpurrot 270°C#"+"$5F0284 Violett 280°C#"+"$0D0359 Dunkelblau 290°C#"+\
"$1F0AB1 Kornblumenblau 300°C#"+"$3B72B3 Hellblau 320°C#"+"$7596BF Blaugrau 340°C#"+\
"$A3B2C5 gray 360°C#"+"$8F8F8F Dunkelgrau 400°C#"+"$404040 Black 480°C#"+\
"$352201 Dunkelbraun 550°C#"+"$542803 Braunrot 630°C#"+"$681002 Dunkelrot 680°C#"+\
"$881500 Dunkelkirschrot 740°C#"+"$A00000 Kirschrot 780°C#"+"$C11B1B Hellkirschrot 810°C#"+\
"$D44115 Hellrot 850°C#"+"$EA572C Gut_Hellrot 900°C#"+"$E97E1C Gelbrot 950°C#"+\
"$FFAA0F Hellgelbrot 1000°C#"+"$FBC034 yellow 1100°C#"+"$FFCF61 Hellgelb 1200°C#"+\
"$FFE6AD Gelbweiß 1300+°C#"+"$FFE6FF Hellweiß 1300+°C#"+"$FFFFFF Weißglut 1400°C#"+"$FFFFFF Weißglut 1536°C"
Declare a$[]:a$[]=Explode(c$,"#"):Clear c$:Var n&=SizeOf(a$[])-1
Declare b$[],c$[n&,2],r&,g&,b&,rr&,gg&,bb&,rrr&,ggg&,bbb&,i&,c&,cc&,ccc&

whileloop 0,n&:clear b$[]:b$[]=Explode(a$[&loop]," ")

    c$[&loop,0]=b$[0]:c$[&loop,1]=b$[1]:c$[&loop,2]=b$[2]

endwhile

' Lineare Interpolation

whileloop 0,n&-1:i&=&Loop

    r&=val("$"+mid$(c$[i&,0],2,2)):g&=val("$"+mid$(c$[i&,0],4,2)):b&=val("$"+mid$(c$[i&,0],6,2))
    rr&=val("$"+mid$(c$[i&+1,0],2,2)):gg&=val("$"+mid$(c$[i&+1,0],4,2)):bb&=val("$"+mid$(c$[i&+1,0],6,2))
    c&=val(c$[i&,2]):cc&=val(c$[i&+1,2])

    whileloop 0,100,2'percent

        rrr&=r&+(rr&-r&)*&Loop/100:ggg&=g&+(gg&-g&)*&Loop/100:bbb&=b&+(bb&-b&)*&Loop/100
        ccc&=c&+(cc&-c&)*&Loop/100 : cls rgb(rrr&,ggg&,bbb&) : print " RGB = ";
        print right$("0"+hex$(rrr&),2);" ";
        print right$("0"+hex$(ggg&),2);" ";
        print right$("0"+hex$(bbb&),2);"                                ";
        locate 1,20:print c$[i&,1];
        locate 1,37:print st$(ccc&);"°C"
        waitinput 120

    endwhile' %

endwhile

waitinput
end