Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1022 1943 (N64W56 L=  7)   665     68        0 (1009/1908-1038/1978)  10.3 W46-W79 N60-N66
      2 1296 1805 (N42W50 L=  1)  2125    382        1 (1128/1760-1462/1850) -19.7 W33-W63 N35-N46
      3  953 1657 (N43W14 L=325)   460     77        0 ( 924/1617- 987/1691)  29.7 W11-W18 N40-N44
      4  757 1591 (N44E03 L=308)   298     68        0 ( 728/1567- 795/1613)   0.0 E05-W00 N43-N45
      5 1732 1192 (S04W48 L=359)  2827    515        3 (1668/ 954-1769/1409)  58.0 W39-W55 S16-N08
      6  665 1246 (N24E16 L=294)   257     68        0 ( 628/1220- 692/1264) -45.0 E18-E14 N22-N25
      7  913 1213 (N17E02 L=309)   266    105        0 ( 868/1183- 954/1257) -63.4 E03-W00 N14-N20
      8  243 1132 (N27E52 L=258)  1441    278        2 ( 131/1057- 347/1204) -25.7 E69-E42 N20-N33
      9  389 1150 (N25E38 L=273)   310     61        0 ( 374/1111- 408/1178) -90.0 E39-E36 N22-N26
     10 1005 1148 (N11W02 L=313)   404     99        0 ( 953/1132-1063/1169) -18.4 E01-W05 N09-N13
     11  551 1109 (N19E26 L=284)   224     78        1 ( 535/1069- 569/1148)  63.4 E28-E24 N16-N21
     12  473 1029 (N16E33 L=278)   356    153        0 ( 407/ 997- 537/1049)   0.0 E38-E28 N15-N17
     13  225  837 (N10E58 L=252)   735     97        1 ( 188/ 807- 267/ 882)  10.3 E63-E52 N07-N11
     14  385  791 (N04E45 L=266)   611    131        1 ( 321/ 757- 430/ 814) -35.5 E49-E41 N01-N06
     15  877  730 (S09E15 L=296)   328     71        0 ( 859/ 687- 896/ 769)  78.7 E16-E13 S11-S06
     16 1444  680 (S26W17 L=328)   569    165        0 (1395/ 622-1518/ 749)  21.8 W13-W23 S28-S23
     17  320  572 (S07E59 L=251)   385     81        1 ( 305/ 531- 337/ 613)  51.3 E61-E56 S09-S04
     18  733  576 (S15E28 L=283)   233     55        0 ( 717/ 538- 749/ 605)  78.7 E29-E27 S17-S12
     19  343  441 (S15E67 L=244)  5399    467        8 ( 214/ 253- 477/ 581)  77.0 E78-E61 S30-S04
     20 1497  413 (S47W18 L=329)   668    125        1 (1436/ 390-1544/ 450) -11.3 W12-W22 S49-S44
     21  882  321 (S35E30 L=280)   945    185        0 ( 804/ 262- 943/ 382)  14.9 E38-E23 S37-S31
  

    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