Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  912 1724 (N55W06 L=105)   456    128        0 ( 849/1691- 964/1754)   8.7 E01-W12 N53-N57
      2 1445 1354 (N19W33 L=132)   688    233        1 (1381/1296-1513/1390) -45.0 W28-W36 N14-N22
      3  503 1372 (N35E34 L= 65)   319     59        1 ( 471/1351- 536/1389)  -9.5 E36-E30 N33-N36
      4  336 1176 (N24E48 L= 51)   302     92        0 ( 308/1145- 368/1214) -39.8 E51-E44 N21-N26
      5  153 1049 (N16E70 L= 29)   644     51        1 ( 132/1024- 180/1071)  20.6 E74-E65 N14-N17
      6 1694  955 (S09W43 L=142)   278     42        0 (1665/ 937-1718/ 975) -14.0 W41-W45 S10-S08
      7  151  906 (N08E72 L= 27)   554     80        0 ( 127/ 894- 186/ 933)   0.0 E76-E65 N06-N09
      8 1162  655 (S18W03 L=102)   959    260        1 (1082/ 560-1243/ 746)  39.8 E03-W09 S23-S13
      9 1399  565 (S29W18 L=117)  1135    372        1 (1265/ 448-1520/ 672)  28.8 W07-W27 S35-S23
     10 1712  643 (S30W46 L=145)   556     68        1 (1675/ 620-1742/ 666)   8.1 W41-W49 S32-S29
     11  809  507 (S23E23 L= 76)   776    246        0 ( 722/ 444- 894/ 588)  26.6 E30-E14 S26-S18
     12  397  547 (S16E54 L= 45)   463     69        0 ( 381/ 511- 421/ 578)  29.7 E57-E49 S18-S14
     13  910  426 (S30E18 L= 81)   938    258        1 ( 814/ 375-1021/ 491)  15.5 E26-E08 S33-S27
     14 1403  452 (S38W18 L=117)   512    152        0 (1333/ 419-1462/ 490)  10.3 W12-W23 S39-S35
     15  497  410 (S27E52 L= 47)   847     66        1 ( 465/ 370- 531/ 444)  78.7 E54-E48 S29-S24
  

    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