Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1157 1755 (N47W39 L=159)   314     55        0 (1141/1723-1170/1789)  33.7 W35-W42 N44-N48
      2 1410 1591 (N28W44 L=163)  1178    241        2 (1309/1517-1502/1641)   0.0 W32-W54 N26-N30
      3 1530 1440 (N16W44 L=164)   420    130        0 (1486/1394-1583/1476)   5.2 W38-W49 N15-N17
      4 1098 1369 (N25W14 L=134)   652    140        2 (1049/1320-1168/1402)   0.0 W09-W18 N22-N26
      5 1876 1220 (S06W66 L=186)   530     96        1 (1861/1184-1893/1263)  38.7 W63-W70 S08-S04
      6 1075 1188 (N15W07 L=127)   205    104        0 (1038/1140-1099/1225) -81.9 W05-W07 N11-N18
      7 1829 1175 (S07W58 L=178)   632     99        0 (1798/1137-1864/1219) -66.8 W55-W61 S10-S03
      8 1207 1119 (N08W13 L=133)   246    111        0 (1176/1072-1247/1160)  26.6 W09-W15 N06-N09
      9 1848  998 (S17W56 L=175)  1220    233        2 (1779/ 911-1885/1098)  25.0 W46-W62 S20-S12
     10 1770 1000 (S14W47 L=167)  1539    363        5 (1663/ 853-1842/1094)  25.3 W35-W56 S19-S10
     11  872 1048 (N12E08 L=112)   256     97        0 ( 822/1031- 909/1065) -31.0 E10-E05 N10-N14
     12  578  980 (N15E28 L= 92)   372     65        2 ( 550/ 949- 606/1019)  76.0 E29-E26 N12-N16
     13 1626  884 (S17W33 L=153)   476    105        0 (1604/ 841-1655/ 940) -80.5 W31-W34 S19-S13
     14  867  772 (S03E15 L=105)   427    152        1 ( 807/ 721- 940/ 811) -49.4 E17-E11 S07-N00
     15 1819  745 (S32W51 L=171)   630     91        1 (1771/ 721-1860/ 772)  -4.8 W44-W56 S33-S31
     16 1705  726 (S29W38 L=158)   391     74        1 (1682/ 687-1724/ 761) -66.8 W35-W39 S32-S25
     17 1534  560 (S35W21 L=141)  1289    355        0 (1430/ 452-1630/ 713)  32.3 W11-W30 S39-S26
     18 1201  576 (S23E01 L=119)   421    187        0 (1132/ 522-1267/ 651)  21.8 E06-W04 S24-S20
     19 1675  485 (S47W37 L=156)  1047    123        2 (1630/ 452-1718/ 536)  16.7 W30-W41 S49-S42
     20 1016  431 (S28E17 L=103)   344    121        0 ( 985/ 410-1065/ 480) -63.4 E18-E13 S30-S23
  

    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