Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1012 1939 (N65W55 L=  8)   850     69        0 ( 997/1903-1031/1975)   8.6 W43-W77 N60-N67
      2 1288 1796 (N42W49 L=  2)  2121    375        5 (1128/1753-1444/1840) -18.4 W33-W60 N35-N46
      3  929 1649 (N43W12 L=325)   508     96        1 ( 900/1606- 963/1686)  29.7 W09-W16 N40-N45
      4  785 1593 (N44E00 L=313)   537    168        0 ( 712/1557- 865/1620)  -4.8 E06-W06 N42-N44
      5 1696 1341 (N05W51 L=  4)   775    116        1 (1650/1285-1730/1381) -63.4 W48-W52 N00-N07
      6  361 1331 (N37E40 L=273)   509     70        1 ( 337/1293- 390/1373)  78.7 E42-E37 N34-N39
      7 1711 1099 (S09W44 L=357)  1829    319        3 (1656/ 948-1743/1241)  51.3 W37-W49 S16-S01
      8  204 1143 (N28E57 L=256)  1297    194        0 ( 125/1088- 279/1193) -21.4 E71-E48 N23-N32
      9  489 1074 (N18E31 L=282)   896    328        0 ( 382/ 991- 544/1168)  23.2 E40-E26 N15-N23
     10  971 1131 (N11E00 L=312)   416    121        0 ( 912/1116-1031/1151) -31.0 E03-W02 N08-N12
     11 1852  995 (S19W56 L=  9)   512    111        0 (1834/ 937-1871/1050)  45.0 W53-W58 S21-S16
     12  201  833 (N10E62 L=251)  1227    152        5 ( 138/ 790- 263/ 878)   9.0 E72-E53 N07-N12
     13  342  788 (N05E49 L=264)   411     96        0 ( 302/ 771- 387/ 812) -15.9 E51-E44 N03-N07
     14  845  716 (S09E17 L=296)   292     70        0 ( 827/ 676- 863/ 757)  76.0 E18-E16 S11-S06
     15 1389  637 (S27W13 L=326)   279     43        0 (1369/ 609-1409/ 664)  26.6 W10-W14 S28-S25
     16 1817  590 (S45W57 L= 10)   603     62        0 (1786/ 574-1846/ 604)  -9.5 W50-W63 S46-S42
     17  702  566 (S15E31 L=282)   240     72        0 ( 683/ 528- 722/ 602) -90.0 E31-E29 S17-S12
     18  336  440 (S15E68 L=245)  4682    416        7 ( 252/ 266- 465/ 562)  66.5 E77-E62 S29-S06
     19  444  497 (S14E52 L=261)   416     70        1 ( 424/ 466- 473/ 526) -90.0 E53-E50 S16-S11
     20 1486  413 (S47W17 L=330)   545    100        0 (1444/ 391-1540/ 436)  -5.7 W12-W22 S48-S44
     21  861  314 (S35E32 L=281)   936    173        2 ( 780/ 264- 928/ 368)  10.6 E41-E25 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