Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  687 1611 (N18E38 L=167)  1195    307        2 ( 645/1472- 720/1751) -41.8 E49-E30 N10-N27
      2  324 1562 (N08E67 L=139)  5488    317        5 ( 230/1450- 404/1680)  86.4 E75-E58 N00-N16
      3  947 1617 (N26E23 L=183)   359    117        1 ( 925/1563- 976/1659) -60.3 E24-E19 N22-N29
      4 1023 1346 (N12E09 L=197)   228    100        0 (1005/1287-1039/1388) -81.9 E10-E07 N07-N14
      5  282 1127 (S18E52 L=154)  1876    297        3 ( 194/ 995- 362/1232)  58.0 E59-E46 S27-S11
      6  792 1022 (S12E13 L=193)   181     85        2 ( 747/1003- 827/1045)  21.8 E15-E10 S13-S10
      7  400  914 (S28E37 L=168)  2667    584        3 ( 149/ 779- 642/1011)  26.6 E71-E20 S41-S16
      8 1252  877 (S08W17 L=222)   372    164        0 (1216/ 808-1308/ 923)  77.5 W15-W18 S12-S03
      9  992  700 (S24W08 L=213)   258     77        0 ( 952/ 681-1030/ 716)  45.0 W05-W09 S26-S22
     10  427  577 (S49E33 L=173)   701    188        1 ( 382/ 508- 492/ 652) -38.7 E38-E25 S52-S44
     11 1666  513 (S14W60 L=265)  1025    129        2 (1608/ 486-1736/ 539)  33.7 W55-W66 S16-S09
     12 1706  459 (S15W69 L=275)  2269    132        5 (1655/ 419-1754/ 512)  90.0 W64-W78 S17-S10
     13  790  401 (S50W06 L=212)   332     71        0 ( 771/ 367- 812/ 436) -33.7 W03-W09 S51-S47
     14  980  324 (S48W25 L=231)  1545    264        1 ( 865/ 259-1088/ 373)  10.3 W14-W37 S51-S45
  

    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