Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1014 1939 (N64W55 L=  7)   804     68        1 ( 992/1907-1032/1975)   7.1 W44-W76 N60-N67
      2 1294 1800 (N42W50 L=  2)  2123    382        2 (1133/1755-1448/1845) -18.4 W33-W61 N35-N46
      3  937 1652 (N43W13 L=326)   503     91        0 ( 905/1608- 971/1690)  29.7 W10-W17 N40-N45
      4  777 1592 (N44E01 L=311)   462    124        0 ( 713/1560- 845/1614)  -5.7 E06-W04 N42-N44
      5 1700 1349 (N05W51 L=  4)   828    122        1 (1654/1292-1736/1390) -63.4 W48-W53 N01-N07
      6  359 1330 (N37E40 L=272)   356    102        2 ( 332/1285- 390/1362)  45.0 E42-E36 N34-N38
      7 1718 1105 (S09W45 L=357)  1809    312        4 (1663/ 949-1751/1247)  49.1 W37-W50 S16-S01
      8  222 1133 (N27E55 L=258)  1480    265        1 ( 126/1055- 323/1202) -24.8 E70-E44 N20-N33
      9  499 1087 (N19E30 L=282)  1033    349        3 ( 388/ 991- 554/1177)  21.8 E40-E25 N15-N23
     10  980 1135 (N11W00 L=313)   395    114        0 ( 921/1118-1037/1155) -18.4 E03-W03 N08-N12
     11  136  870 (N13E70 L=243)   628     97        1 ( 119/ 831- 152/ 916)  68.2 E74-E67 N10-N15
     12  204  831 (N10E61 L=251)  1095    124        4 ( 153/ 789- 255/ 880)   7.6 E69-E54 N07-N11
     13  348  788 (N05E48 L=264)   400     97        0 ( 306/ 772- 395/ 808) -14.0 E51-E43 N03-N06
     14  851  722 (S09E17 L=296)   329     80        0 ( 833/ 678- 870/ 760)  78.7 E17-E15 S11-S06
     15 1395  641 (S27W13 L=326)   294     45        0 (1373/ 610-1415/ 667)  33.7 W11-W14 S28-S25
     16 1821  593 (S45W57 L=  9)   612     58        0 (1791/ 578-1850/ 611) -14.0 W51-W64 S46-S42
     17  708  568 (S15E30 L=282)   272     75        0 ( 689/ 527- 727/ 605)  78.7 E30-E29 S17-S12
     18  446  499 (S14E52 L=261)   317     49        1 ( 428/ 473- 470/ 524)  76.0 E53-E49 S15-S11
     19  326  452 (S14E68 L=245)  3338    219        6 ( 259/ 355- 383/ 521)  59.7 E75-E62 S21-S09
     20 1487  411 (S47W17 L=330)   398     60        0 (1450/ 391-1518/ 432)   0.0 W13-W20 S48-S45
     21  864  314 (S35E32 L=280)   966    172        1 ( 789/ 251- 930/ 367)  13.2 E41-E24 S37-S32
  

    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