Ok i've got it, in the line :
gluPerspective(45.0,Float(w/h),1.0,100.0)
change float(w/h) to 800.0/600.0 => much better
or with :
global WH,HF:Float
WH=width
HF=height
gluPerspective(45.0,WH/HF,1.0,100.0)
gluPerspective(45.0,Float(w/h),1.0,100.0)
change float(w/h) to 800.0/600.0 => much better
or with :
global WH,HF:Float
WH=width
HF=height
gluPerspective(45.0,WH/HF,1.0,100.0)