DEF S Script {
  directOutput TRUE
  eventIn SFFloat fraction IS fraction
  eventOut MFVec2f scale 
  field SFNode n USE X
  field SFInt32 i 0
  field MFVec2f s1 [ 0.5 0.5,1 1, 0.5 0.5, 0.1 0.1 ]
  field MFVec2f s2 [ 0.1 0.1,0.3 0.3, 0.7 0.7, 0.2 0.2 ]
  field MFVec2f s3 [ 0.3 0.3,0.8 0.8, 0.6 0.6, 0.3 0.3 ]
  field SFColor c1 1 0 0
  field SFColor c2 1 1 0
  field SFColor c3 0 1 1