/[gzz]/gzz/test/gzz/gfx/gl/glvobcoorder.test
ViewVC logotype

Diff of /gzz/test/gzz/gfx/gl/glvobcoorder.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by tjl, Tue Oct 1 08:17:06 2002 UTC revision 1.6 by tjl, Tue Oct 1 10:14:47 2002 UTC
# Line 5  from jarray import array, zeros Line 5  from jarray import array, zeros
5    
6  GL.loadLib()  GL.loadLib()
7    
8  def checkTrans(c, cs, srclist, dstlist):  def checkTrans(c, cs, srclist, dstlist, delta=0):
9      src = array(srclist, 'f')      src = array(srclist, 'f')
10      dst = zeros(len(src), 'f')      dst = zeros(len(src), 'f')
11      c.transformPoints3(cs, src, dst)      c.transformPoints3(cs, src, dst)
12      failUnlessEqual([x for x in dst], dstlist)      for i in range(0, len(src)):
13            failIf(abs(dst[i]-dstlist[i]) > delta, str([srclist, dstlist, dst, i, dst[i], dstlist[i]]))
14    
15    
16  def testTransform():  def testTransform():
# Line 17  def testTransform(): Line 18  def testTransform():
18    
19      cs = c.coordsys(0, 5, 10, 15, 0, 0)      cs = c.coordsys(0, 5, 10, 15, 0, 0)
20      checkTrans(c, cs, [0, 0, 0, 1, 1, 1], [10, 15, 5, 10, 15, 6])      checkTrans(c, cs, [0, 0, 0, 1, 1, 1], [10, 15, 5, 10, 15, 6])
21    
22        cs = c.scaleXYZ(0, 2, 3, 4)
23        checkTrans(c, cs, [0, 0, 0, 1, 1, 1], [0, 0, 0, 2, 3, 4])
24            
25    
26        cs = c.distort(0, 0, 0, 0.1, 0.1, 20, 5)
27        checkTrans(c, cs, [0, 0, 0, 0.001, 0.001, 1], [0, 0, 0, 0.02, 0.02, 1], delta=0.00001)
28    
29  def checkInverse(c, cs):  def checkInverse(c, cs):
30      # unit cube      # unit cube
31      src = array([      src = array([
# Line 72  def testInverses(): Line 79  def testInverses():
79      checkInverse(c, cs_ortho4)      checkInverse(c, cs_ortho4)
80      checkInverse(c, cs_ortho5)      checkInverse(c, cs_ortho5)
81    
82        cs_dist = c.distort(0, 0, 0, 0.5, 0.1, 20, 5)
83    
84        checkInverse(c, cs_dist)
85    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26