Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1736 1552 (N21W72 L=137)   694     54        1 (1712/1524-1756/1577)  12.5 W67-W78 N19-N21
      2 1682 1395 (N14W54 L=119)   507     86        0 (1667/1353-1699/1446)  51.3 W51-W56 N11-N16
      3  184 1325 (N37E73 L=353)  1198     85        3 ( 151/1288- 217/1361) -11.9 E86-E64 N34-N38
      4 1472 1264 (N12W33 L= 98)   313     65        0 (1435/1243-1503/1286) -36.9 W30-W35 N10-N13
      5 1815 1014 (S11W55 L=120)   512     80        1 (1798/ 977-1838/1054) -90.0 W53-W57 S13-S08
      6 1614  975 (S08W36 L=102)   548    147        2 (1552/ 929-1652/1019) -54.5 W32-W39 S11-S04
      7 1907  992 (S15W67 L=133)   630     40        3 (1882/ 969-1930/1015)   9.5 W62-W72 S16-S14
      8 1038  883 (S02E02 L= 64)   270    127        0 ( 981/ 854-1081/ 925) -45.0 E04-W00 S04-N01
      9  244  751 (N01E62 L=  4)   403     53        0 ( 225/ 721- 264/ 778) -33.7 E63-E59 N00-N02
     10  215  692 (S02E68 L=357)   842     93        1 ( 193/ 655- 245/ 723) -38.7 E73-E64 S04-N00
     11 1081  618 (S19E04 L= 61)   450    160        1 (1061/ 547-1106/ 684)  77.5 E05-E01 S23-S14
     12  289  605 (S08E63 L=  3)  1145    175        3 ( 249/ 564- 319/ 678)  38.7 E68-E58 S11-S03
     13 1725  639 (S33W45 L=110)   648     78        0 (1682/ 621-1762/ 657) -18.4 W40-W49 S34-S31
     14  801  532 (S19E24 L= 42)   477    150        0 ( 778/ 464- 824/ 606)  52.1 E27-E20 S23-S14
     15  463  531 (S15E49 L= 17)   706    174        1 ( 426/ 454- 493/ 599)  73.3 E52-E47 S19-S09
     16 1351  546 (S29W12 L= 78)   569     92        0 (1326/ 498-1379/ 592)  56.3 W09-W14 S32-S26
     17  367  502 (S16E60 L=  6)   573    111        0 ( 351/ 451- 389/ 545)  35.0 E65-E54 S19-S12
     18  690  307 (S34E43 L= 23)  1113    215        1 ( 629/ 234- 742/ 399)  29.7 E55-E34 S39-S27
     19  588  356 (S29E48 L= 18)   631    100        2 ( 537/ 329- 641/ 381)  -5.7 E53-E42 S30-S26
  

    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