Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1359 1673 (N32W45 L=198)   673    251        1 (1248/1640-1451/1703) -20.6 W36-W52 N29-N35
      2 1645 1638 (N20W64 L=218)  2051    403        4 (1562/1599-1731/1670) -25.2 W57-W76 N15-N24
      3 1238 1537 (N29W30 L=183)   487    128        0 (1201/1474-1288/1588)  83.7 W28-W30 N23-N32
      4 1669 1486 (N12W57 L=210)   437     88        0 (1629/1450-1704/1527) -63.4 W55-W58 N09-N15
      5 1632 1435 (N11W51 L=204)   376    125        0 (1617/1375-1652/1495)  56.3 W48-W53 N07-N13
      6  754 1258 (N27E10 L=143)   849    264        4 ( 645/1174- 842/1320) -57.3 E15-E05 N19-N33
      7 1901 1141 (S14W65 L=218)  1213    207        1 (1864/1068-1941/1194) -68.2 W60-W67 S20-S10
      8 1813 1100 (S13W53 L=206)   372     66        1 (1796/1068-1828/1135)  45.0 W51-W55 S14-S11
      9  224  883 (N17E58 L= 95)  1272    335        2 ( 182/ 774- 253/1022)  45.0 E67-E52 N10-N24
     10 1812  867 (S26W48 L=201)  1633    247        2 (1780/ 746-1842/ 965)  61.7 W43-W52 S34-S20
     11 1255  728 (S16W05 L=158)   921    269        2 (1152/ 601-1327/ 854)  33.7 E04-W11 S20-S10
     12  754  678 (S06E25 L=128)   969    104        3 ( 707/ 603- 806/ 760) -84.8 E26-E22 S11-N00
     13 1407  561 (S32W10 L=163)   515    122        2 (1355/ 527-1468/ 599)  -6.3 W06-W15 S33-S30
     14 1162  411 (S34E10 L=143)  1298    251        4 (1088/ 332-1256/ 498)  23.6 E18-E02 S37-S29
     15  562  334 (S23E53 L=100)   528    115        1 ( 544/ 297- 579/ 369)  39.8 E56-E49 S25-S20
  

    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