pro call_script1
    
    ; Generic script that calls script1

    ; Bo Milvang-Jensen (milvang@astro.ku.dk)
    ; For the RelViz Web exhibition, June 1996
    ; Last rev.: 07-Jun-1996

    ; Black hole properties
    M = 1.0
    a_over_M = 0.998

    ; Initial position of photon
    r = 5.0
    th = !pi/4
    ph = 0.0
    t = 0.0

    ; Initial direction of photon
    dr = -0.5
    dth = -0.2
    dph = 0.11

    ; Affine parameter control
    dl = 0.2
    nl = 300

    ; 3D scene format
    scene_format = 'Inventor'

    ; Drawing style of geodesic
    pointset = 0 ; 1 means Line

    ; Color of geodesic
    cr = 0.0
    cg = 1.0
    cb = 1.0

    ; Coordinate system widget
    coo = 'on'
    coo_length = 5.0

    ; Horizon widget
    horizon = 'on'
    auto_radius = 'on'
    manual_radius = 1.0 ; Only used if auto_radius = 'off'
    hcr = 1.0
    hcg = 1.0
    hcb = 0.0
    transp = 0.50

    ; Static Limit / Ergosphere widget
    make_r_stat = 'off'
    scr = 0.0
    scg = 1.0
    scb = 1.0

    ; The rest
    out_file = '/m/RelViz/WWW/milvang/test/call.iv'
    append = 0 ; 0 means do not append

    ; call script1 !!!
    script1, M, a_over_M, r, th, ph, t, dr, dth, dph, dl, nl, $
	     scene_format, pointset, cr, cg, cb, coo, coo_length, $
	     horizon, auto_radius, manual_radius, $
	     hcr, hcg, hcb, transp, make_r_stat, scr, scg, scb, $
	     out_file, append=append

end