www.pudn.com > 3dgprsrc.rar > BICUBIC.DAT

type pixel short 
type bicubic { int pixel int ptr [4][4][4]int ptr ptr } 
type bicubic_object { int int ptr ptr } 
 
var pixel colour 0x7bc0 
var int texture_size 8 
var ptr texture data/rgb16/mill.pic 
var bicubic bicubic_1 
{4 @colour @texture_size @texture 
 [ 
  [[-30 -30 0 0]  [-40 -100 0 0]     [40 -100  0 0]    [30 -30 0 0]] 
  [[-100 -40 0 0] [-250 -250 -750 0] [250 -250 -250 0] [100 -40 0 0]] 
  [[-100  40 0 0] [-250  250 -250 0] [450  450 -450 0] [100  40 0 0]] 
  [[-30  30 0 0]  [-40  100 0 0]     [40  100  0 0]    [30  30 0 0]] 
 ] 
 0 0 
} 
var bicubic bicubic_2 
{4 @colour @texture_size @texture 
 [ 
  [[30  -30 0 0] [40 -100 0 0]    [-40 -100  0 0]  [-30 -30 0 0]] 
  [[100 -40 0 0] [750 -750 450 0] [-39 -39  140 0] [-100 -40 0 0]] 
  [[100  40 0 0] [39  39 140 0]   [-750 750 450 0] [-100  40 0 0]] 
  [[30   30 0 0] [40  100 0 0]    [-40  100  0 0]  [-30  30 0 0]] 
 ] 
 0 0 
} 
var [2]ptr bicubics [bicubic_1 bicubic_2] 
var bicubic_object object {2 2 bicubics 0} 
 
export object