#!/bin/csh -f

foreach a ($argv)
  cat $a | awk '/Texture2/ {i = 1}; /TextureCoordinateEnvironment/ {i = 1}; /BaseColor/ {i = 1}; /Material/ {i = 1}; i == 0 {print}; /}/ {i = 0}' > $a.new
#  cat $a | awk '/Material/ {i = 1}; i == 0 {print}; /}/ {i = 0}' > $a.new
  mv $a.new $a
end
