  def BuildTextures
  =================

  CreateTexture imgn0, "../../images/crate.jpg"
  CreateTexture imgn1, "../../images/glass.jpg"
  CreateTexture imgn2, "torus.jpg"
  CreateTexture imgn3, "RosetteNebula.jpg"
  CreateTexture imgn4, "OIP01.jpg"
  CreateTexture imgn5, "torotorus.jpg"

  int a,b,c
  a=PixelColor BackGroundColor '0x00300000
  b=0xa0a0ffff
  c=0xffffffff
  '
  CreateSynthTexture simgn0, int {
  c,c,
  c,c
  }, bytesof

  CreateSynthTexture simgn1, int {
  a,a,a,
  a,b,a,
  a,a,a
  }, bytesof

  a=0xff80e0e0
  b=0xffc0e0e0
  '
  CreateSynthTexture simgn2, int {
  a,a,a,a,a,
  a,b,a,b,a,
  a,a,b,a,a,
  a,b,a,b,a,
  a,a,a,a,a
  }, bytesof

  CreateSynthTexture simgn3, int {
  a,a,a,a,a,a,a,
  a,a,a,b,a,a,a,
  a,a,b,b,b,a,a,
  a,b,b,c,b,b,a,
  a,a,b,b,b,a,a,
  a,a,a,b,a,a,a,
  a,a,a,a,a,a,a
  }, bytesof

  'NORMAL XYZ IN RGB CHANNELS
  'DEPTH SHADING IN A CHANNEL
  a=0x77ff0000 'X
  b=0xaaff0000 'Y
  c=0xffff0000 'Z
  '
  CreateSynthTexture norm1, int {
  a,a,a,a,a,a,a,
  a,a,a,b,a,a,a,
  a,a,b,b,b,a,a,
  a,b,b,c,b,b,a,
  a,a,b,b,b,a,a,
  a,a,a,b,a,a,a,
  a,a,a,a,a,a,a
  }, bytesof

  'NORMAL XYZ IN RGB CHANNELS
  'DEPTH/BUMP SHADING IN A CHANNEL
  a=0x44ff0000 'z
  b=0x88ff0000 'z
  c=0xffff0000 'Z
  '
  CreateSynthTexture norm2, int {
  a,c,a,c,a,c,a,
  a,c,a,c,a,c,a,
  a,c,a,c,a,c,a,
  a,c,a,c,a,c,a,
  a,c,a,c,a,c,a,
  a,c,a,c,a,c,a,
  a,c,a,c,a,c,a
  }, bytesof


  a=0xffff0000 'z
  b=0xffff0000 'z
  c=0xffff0000 'Z
  %=wh 32*32
  int tx[wh]
  int i=0,e=wh
  while i<e
    tx[i]=a : i++
    tx[i]=c : i++
  wend
  e*=4
  CreateSynthTexture norm3,tx,e
  

 end def 'textures