plot  erase
      angle 0
      location 5000 28000 19000 28000
      expand 1.5
      ylabel Normalized Flux
      xlabel Wavelength (\gA)
      data HeIhd191978.data
#      data test.data
      lines 1 10000
      read {x 2 y 3}
      limits x y
      box
      connect x y
      location 5000 28000 5000 14000
      data fHeI191978.data
#      data Ftest.data
      lines 1 20000
      read {x 1 y 2 z 3}
#      set x = 10**x
      limits -1.5 0.5 y
      set z = LG(z)
      box
      expand 0.5
      ptype 20 0
      points x y
      expand 1.5
      ctype blue
      data profilrot.data
      lines 4100 6146
      read {x 1 y 2}
      set y=y*2.0
      set x = LG(x)
#-LG(6678*400/300000)
      set y = LG(y)
      ctype red
      connect x y
      relocate -1.15 -3.5
      draw -1.05 -3.5
      expand 1.0
#      relocate -1.0 -3.6
#      label G(\gs) 60 km s\u-\u1
      expand 1.5
      ctype default
      xlabel \gs (\gA\u-\u1)
      ylabel Fourier Transform
      relocate (8000 29000)
      label HD 191978: He I \gl 4471  
      expand 1.0 
