Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1610 1528 (N16W54 L=192)   439     66        2 (1572/1505-1647/1545) -31.0 W51-W57 N14-N17
      2 1738 1439 (N07W60 L=198)   610    108        0 (1678/1416-1771/1473)  -4.8 W53-W65 N05-N08
      3 1049 1264 (N19W08 L=146)   530    143        1 ( 982/1245-1125/1282) -26.6 W04-W12 N16-N20
      4 1867 1232 (S08W64 L=202)  1761    174        5 (1823/1173-1925/1280)  14.0 W57-W74 S11-S05
      5  874 1174 (N18E04 L=133)   354    165        0 ( 812/1123- 933/1217) -54.5 E07-E02 N14-N21
      6 1896 1163 (S13W65 L=203)   800     74        3 (1869/1123-1914/1201)  53.1 W61-W68 S15-S11
      7 1831 1099 (S14W55 L=193)  1474    144        4 (1793/1037-1874/1164) -77.5 W50-W59 S18-S09
      8  296  979 (N21E49 L= 89)  2122    393        3 ( 190/ 836- 384/1147) -57.5 E60-E43 N11-N33
      9  633 1094 (N20E21 L=117)   217     64        2 ( 604/1069- 662/1122)  21.8 E23-E18 N18-N21
     10 1777 1021 (S16W47 L=185)   708     94        1 (1747/ 972-1802/1073)  80.5 W44-W49 S19-S13
     11  515  987 (N17E31 L=107)   380    119        0 ( 467/ 953- 577/1021) -40.6 E34-E27 N13-N19
     12 1256  830 (S10W07 L=145)   811    351        2 (1218/ 671-1276/ 994)  57.1 W01-W12 S18-S01
     13 1608  901 (S17W31 L=169)   314     77        0 (1567/ 888-1648/ 913) -31.0 W28-W33 S18-S15
     14 1382  558 (S31W08 L=146)  3422    572        7 (1223/ 369-1530/ 798)  30.1 E08-W23 S38-S20
     15  584  617 (S05E37 L=101)   846    215        1 ( 542/ 506- 609/ 690)  61.4 E42-E33 S11-N00
     16  434  611 (S02E48 L= 90)   661    115        1 ( 374/ 575- 483/ 647) -39.8 E51-E45 S05-N00
     17  778  445 (S20E32 L=106)  1062    329        3 ( 755/ 309- 812/ 594)  52.1 E39-E23 S29-S11
     18 1190  559 (S24E04 L=134)   213     86        1 (1170/ 517-1212/ 590)  53.1 E05-E01 S26-S22
     19  967  498 (S22E19 L=119)   370    108        1 ( 927/ 460- 984/ 554)  63.4 E21-E16 S24-S18
     20  506  480 (S12E49 L= 89)   316     68        2 ( 493/ 449- 521/ 518)  38.7 E51-E46 S13-S09
  

    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