Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1224 1743 (N41W43 L=260)   781    119        1 (1173/1695-1270/1785)  11.3 W35-W50 N39-N42
      2 1671 1675 (N20W76 L=293)   727     50        1 (1647/1651-1691/1701)   0.0 W69-W85 N19-N21
      3 1685 1523 (N13W61 L=278)  1874    152        4 (1638/1451-1728/1608)  52.1 W55-W65 N09-N18
      4 1577 1301 (N06W41 L=257)   780    169        2 (1499/1240-1643/1339) -56.3 W36-W43 N00-N09
      5 1451 1204 (N04W29 L=246)   334     98        0 (1426/1152-1475/1248)  33.7 W25-W31 N02-N06
      6 1807 1027 (S16W50 L=267)   871    186        3 (1739/ 962-1855/1058) -41.6 W44-W55 S20-S12
      7  984  919 (N02E05 L=212)   404    131        0 ( 957/ 866-1036/ 962)  23.2 E07-W00 N00-N03
      8 1795  904 (S23W47 L=264)   382     89        0 (1756/ 882-1822/ 939)   0.0 W42-W50 S24-S22
      9  636  877 (N08E26 L=191)   206     63        0 ( 597/ 861- 663/ 896) -11.3 E28-E23 N07-N09
     10 1043  772 (S08E06 L=211)   655    238        0 ( 974/ 683-1108/ 861) -85.6 E07-E03 S13-N00
     11  464  769 (N06E40 L=177)   517    149        1 ( 393/ 748- 541/ 785) -21.8 E45-E35 N03-N08
     12  632  582 (S08E35 L=182)  1229    292        2 ( 563/ 509- 738/ 672)  16.4 E42-E25 S12-S04
     13  518  554 (S08E44 L=173)   502    118        2 ( 494/ 495- 560/ 596)  60.3 E47-E40 S11-S04
     14  752  508 (S16E31 L=186)   362     86        0 ( 704/ 492- 786/ 529)   0.0 E33-E27 S16-S14
     15  672  460 (S17E38 L=179)   352    110        2 ( 642/ 425- 698/ 509)  71.6 E40-E36 S19-S13
     16  543  442 (S15E48 L=169)   899    123        3 ( 483/ 408- 602/ 491) -29.7 E52-E45 S17-S11
     17  738  434 (S20E35 L=182)   567    148        1 ( 686/ 376- 779/ 486)  24.4 E41-E30 S22-S17
     18  908  386 (S27E27 L=190)  1254    212        3 ( 852/ 297- 964/ 473)  29.4 E35-E19 S32-S22
     19  496  342 (S21E60 L=157)  1361    159        0 ( 463/ 274- 528/ 407)  24.2 E72-E52 S25-S16
     20 1068  341 (S35E19 L=198)  1250    208        2 ( 965/ 300-1154/ 397)   0.0 E27-E11 S37-S33
     21  723  232 (S34E51 L=166)   762     85        1 ( 689/ 199- 757/ 287)  26.6 E56-E44 S36-S29
  

    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