procedure main()
    w := open("textured sphere","gl", "bg=black", "size=500,500")
    WAttrib(w, "texmode=on")
    Texture(w, "jeffery2.gif")
   
Translate(w, 0.1, 0.1, -2.0)
 Rotate(w, 270, 1, 0, 0)
r := Scale(w, 1.0, 1.0, 1.4)  
 DrawSphere(w, 0.0, 0.0, 0, 0.5)  
    while (line := read(w)) ~== "q" do {
line ? {
#    r.angle := tab(many(&digits))
#    tab(many(' '))
    r.x := tab(many(&digits))
    tab(many(' '))
    r.y := tab(many(&digits))
    tab(many(' '))
    r.z := tab(many(&digits))
}
Refresh(w)
    }
 
    
end