Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1135 1717 (N39E17 L= 56)   319     82        2 (1104/1690-1172/1733)  26.6 E19-E14 N36-N40
      2  373 1615 (N12E65 L=  7)  1421    301        3 ( 351/1532- 404/1702) -47.5 E71-E59 N06-N18
      3 1347 1581 (N36W03 L= 75)   764    113        2 (1292/1536-1394/1625) -20.6 E01-W07 N33-N38
      4  310 1459 (N01E62 L= 10)  1206    337        3 ( 224/1426- 401/1503)  23.2 E73-E52 S01-N05
      5  255 1188 (S16E56 L= 17)  1322    355        5 ( 185/1154- 359/1250)   0.0 E64-E45 S18-S12
      6 1727  815 (N04W50 L=122)   296     69        0 (1699/ 801-1749/ 835)  14.0 W47-W51 N02-N05
      7  607  701 (S36E17 L= 55)   933    316        2 ( 478/ 679- 765/ 723)  15.3 E27-E05 S39-S31
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y