XProfan

!
window 50,50-700,500
declare Data#
struct DATA=Wert&,Text$(19)
dim Data#,DATA
declare Size&
Size&=sizeof(Data#)
declare Mem#
dim Mem#,Size&*10
def DataSetzen(1) Mem#+Size&*%(1)

whileloop 0,9

    Data#=DataSetzen(&loop)
    Data#.Wert&=&loop
    Data#.Text$="Test"+str$(&loop)

endwhile

Data#=DataSetzen(5)
print Data#.Wert&
print Data#.Text$
print
Data#=DataSetzen(7)
print Data#.Wert&
print Data#.Text$
print
waitkey

!
#include "textures.inc"
#include "colors.inc"
#include "glass.inc"
#include "metals.inc"
global_settings{assumed_gamma 1.3}
light_source{<0,100,-100> color White}
camera{location<10,13,-10> look_at<0,0,0> angle 40}

sky_sphere{

    pigment{

        marble
        turbulence 1

        color_map{

            [0.000 color <1.0,0.7,0.7>]
            [0.001 color <0.7,1.0,0.7>]
            [0.002 color <0.7,0.7,1.0>]
            [0.003 color <1.0,1.0,1.0>]
            [0.004 color <0.0,0.0,0.03>]

        }

        scale 0.1

    }

}

#declare Fraktal=

julia_fractal{

    <0.5,1,-0.5,0.5>
    quaternion
    max_iteration 6
    precision 600
    texture{T_Chrome_5E}
    scale <3,3,3>

}

object{Fraktal}
object{Fraktal rotate <0,90,0>}
object{Fraktal rotate <0,0,90>}

sphere{<0,0,0> 1

    pigment{rgbt<1,1,1,1>}

    interior{

        media{

            emission 0.5

            density{

                spherical

                color_map{

                    [0.0 color rgb<0,0,0>]
                    [0.3 color rgb<1,0,0>]
                    [1.0 color rgb<1,1,0>]

                }

            }

        }

    }

    hollow

}