bicubic.dat

《3D图形编程指南》一书的原码

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