Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  408 1487 (N31E51 L=235)   385     76        0 ( 384/1459- 444/1519) -26.6 E54-E46 N29-N33
      2 1643 1452 (N30W49 L=335)  1092    162        2 (1587/1385-1704/1507) -58.0 W44-W53 N25-N33
      3 1846 1357 (N23W71 L=357)   615     95        1 (1823/1311-1867/1393) -59.0 W69-W73 N19-N24
      4  664 1153 (N11E23 L=263)   222     71        0 ( 638/1129- 699/1185)  36.9 E24-E20 N09-N12
      5 1700  965 (S01W46 L=332)  1020    125        3 (1667/ 896-1736/1010)  71.6 W43-W49 S05-N01
      6 1765  964 (S01W52 L=338)   439     72        1 (1729/ 938-1785/ 998)  11.3 W48-W54 S02-N00
      7  159  874 (S09E69 L=216)  2229    179        5 ( 131/ 813- 187/ 974) -78.7 E76-E64 S12-S02
      8 1649  919 (S04W42 L=328)   253     63        0 (1624/ 897-1667/ 948)  45.0 W40-W43 S04-S01
      9 1831  855 (S08W61 L=346)   758     92        3 (1794/ 823-1861/ 886)  14.0 W56-W64 S10-S06
     10  259  793 (S13E57 L=229)  1002    219        2 ( 217/ 732- 324/ 853) -33.7 E60-E50 S16-S09
     11  211  678 (S21E68 L=217)  1230     96        1 ( 171/ 641- 247/ 722)  16.7 E81-E60 S23-S17
     12 1207  686 (S18W12 L=298)   230     59        0 (1189/ 653-1224/ 717) -76.0 W10-W13 S19-S15
     13  864  565 (S26E11 L=275)   339    101        0 ( 820/ 533- 903/ 603)  39.8 E13-E07 S28-S23
     14 1773  549 (S29W67 L=353)   892    116        1 (1733/ 514-1815/ 593)  36.9 W61-W71 S31-S25
     15 1137  516 (S29W08 L=294)  1652    349        3 ( 973/ 462-1281/ 574)  15.9 E03-W18 S33-S25
  

    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