Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1578 1380 (N11W42 L=313)   479    119        0 (1548/1314-1623/1438) -83.7 W40-W43 N06-N15
      2  363 1243 (N27E40 L=231)   769    184        3 ( 283/1203- 428/1283)   8.7 E47-E34 N25-N28
      3  397 1016 (N13E40 L=232)   301     74        0 ( 359/ 997- 431/1036) -38.7 E42-E36 N10-N14
      4  808  957 (N02E14 L=257)   453     86        2 ( 776/ 924- 846/1005) -63.4 E15-E11 N00-N04
      5  504  913 (N05E33 L=238)   222     29        0 ( 482/ 895- 529/ 931) -33.7 E34-E31 N03-N05
      6  692  821 (S04E23 L=248)   332    103        0 ( 642/ 790- 724/ 860)   9.5 E26-E20 S05-S01
      7 1731  468 (S50W49 L=320)   701    194        1 (1703/ 443-1765/ 496) -28.6 W45-W56 S53-S47
      8  887  358 (S36E25 L=246)   769    141        1 ( 803/ 337- 965/ 378)  -9.5 E31-E19 S38-S34
  

    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