XProfan

Título de la ventana "  LINEARE INTERPOLATION:  Anlauffarben unlegierter "+\
"Werkzeugstähle sowie Glühfarben de Stahl"
'(CL) Copyleft 2013-06 by P. Pájaro carpintero, Wien. Keine sin embargo geartete Gewähr!
'Q: Farbwerte u.a. gemaß Popuptexten el jeweiligen Wikipedia-Artikel = Keine Gewähr!
Windowstyle 1048:Ventana 0,0-%maxx,%maxy:font 2
imprimir "Farbe, Bezeichnung, Anlaß(<370°C)- o. Glüh(>540°C)-Temperatur\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 Rot 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 Grau 360°C#"+"$8F8F8F Dunkelgrau 400°C#"+"$404040 Schwarz 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 Gelb 1100°C#"+"$FFCF61 Hellgelb 1200°C#"+\
"$FFE6AD Gelbweiß 1300+°C#"+"$FFE6FF Hellweiß 1300+°C#"+"$FFFFFF Weißglut 1400°C#"+"$FFFFFF Weißglut 1536°C"
Declarar a$[]:a$[]=Explode(c$,"#"):Claro c$:Var n&=SizeOf(a$[])-1
Declarar 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$[&bucle]," ")

    c$[&bucle,0]=b$[0]:c$[&bucle,1]=b$[1]:c$[&bucle,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'Prozent

        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&) : imprimir " RGB = ";
        imprimir right$("0"+hex$(rrr&),2);" ";
        imprimir right$("0"+hex$(ggg&),2);" ";
        imprimir right$("0"+hex$(bbb&),2);"                                ";
        locate 1,20:imprimir c$[i&,1];
        locate 1,37:imprimir str$(ccc&);"°C"
        waitinput 120

    endwhile' %

endwhile

waitinput
end