Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1404 1817 (N47W51 L=357)   419     58        0 (1375/1798-1432/1842)  14.0 W45-W57 N45-N48
      2 1131 1624 (N35W15 L=322)   323     58        1 (1095/1609-1166/1637)   0.0 W12-W18 N33-N36
      3  486 1422 (N29E33 L=274)   431    116        1 ( 449/1377- 533/1465) -36.9 E36-E28 N25-N32
      4 1709 1354 (N12W50 L=357)   498     93        1 (1667/1329-1755/1388) -33.7 W47-W54 N09-N14
      5  541 1058 (N06E29 L=278)  1628    421        5 ( 364/1001- 725/1107)  -4.6 E42-E17 N02-N09
      6 1875  960 (S13W61 L=  8)   548     82        2 (1847/ 925-1902/1000)  45.0 W57-W64 S14-S10
      7 1845  785 (S23W59 L=  6)  1209    170        2 (1773/ 735-1911/ 831)  13.2 W51-W68 S25-S20
      8 1191  776 (S17W07 L=314)   233    125        0 (1145/ 740-1249/ 791)   8.1 W04-W11 S18-S16
      9  654  720 (S15E26 L=280)   298    136        0 ( 594/ 677- 703/ 742) -33.7 E30-E23 S17-S13
     10 1438  657 (S27W23 L=330)  2504    558        7 (1155/ 582-1683/ 722)   1.4 W03-W43 S30-S23
     11  951  632 (S24E09 L=298)   299    114        0 ( 919/ 604- 983/ 674)  45.0 E11-E06 S25-S21
     12 1653  477 (S43W47 L=354)   428     62        0 (1621/ 463-1692/ 493) -12.5 W42-W52 S43-S40
     13  438  416 (S31E56 L=251)  1299    213        2 ( 362/ 363- 528/ 442)  -6.0 E70-E47 S34-S29
     14  740  341 (S41E33 L=274)   583    133        2 ( 671/ 297- 804/ 376)   4.1 E40-E26 S43-S38
  

    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