Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1036 1821 (N57W35 L= 99)   394     60        0 (1002/1798-1061/1843)  10.3 W29-W40 N56-N58
      2 1437 1783 (N40W64 L=128)   660     64        0 (1414/1752-1461/1817)   7.1 W57-W73 N38-N41
      3 1457 1510 (N24W42 L=106)   402     88        0 (1416/1484-1497/1540) -59.0 W39-W43 N21-N26
      4 1085 1470 (N32W15 L= 80)   405     52        1 (1056/1436-1110/1503)  63.4 W13-W17 N29-N33
      5 1466 1192 (N06W30 L= 94)  1097    400        1 (1439/1011-1512/1393)  62.4 W25-W37 S04-N17
      6 1648 1300 (N07W46 L=111)  1205    182        3 (1576/1241-1719/1362) -66.0 W41-W51 N02-N11
      7 1551 1298 (N10W39 L=103)   298     49        2 (1534/1272-1576/1326)  45.0 W37-W40 N07-N11
      8  592 1214 (N27E23 L= 41)   211     73        1 ( 569/1184- 612/1239) -56.3 E24-E21 N25-N28
      9  923 1097 (N14E04 L= 60)   606    264        0 ( 847/1031- 989/1152) -45.0 E09-E01 N08-N16
     10 1885 1012 (S16W62 L=126)  5161    343        9 (1823/ 865-1932/1150)  41.2 W52-W71 S24-S08
     11  427 1011 (N18E39 L= 26)  1855    442        3 ( 268/ 949- 598/1073) -25.6 E52-E27 N11-N23
     12 1812 1017 (S13W53 L=117)   690     90        1 (1778/ 970-1832/1068)  63.4 W49-W55 S16-S10
     13  889 1018 (N10E08 L= 56)   218     78        0 ( 849/ 990- 923/1042) -53.1 E09-E06 N07-N11
     14 1773  900 (S19W47 L=111)  1063    162        2 (1731/ 848-1812/ 964) -60.9 W43-W51 S23-S14
     15 1291  741 (S15W09 L= 74)   611    193        0 (1237/ 664-1336/ 818)  37.9 W04-W13 S18-S11
     16 1574  518 (S39W27 L= 91)  6521    859        8 (1178/ 297-1822/ 707)   9.6 E09-W56 S45-S32
     17 1084  616 (S18E06 L= 58)   343    103        0 (1042/ 596-1144/ 644) -38.7 E07-E02 S19-S15
     18  483  535 (S11E47 L= 17)   860    238        2 ( 380/ 510- 563/ 564) -15.9 E55-E40 S13-S08
     19 1398  208 (S64W08 L= 72)  1183    131        2 (1349/ 186-1458/ 240) -37.3 W01-W23 S72-S56
  

    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