Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1230 1747 (N41W44 L=260)   747    121        1 (1179/1698-1268/1788)  12.1 W36-W50 N39-N42
      2 1669 1677 (N21W76 L=292)   805     63        0 (1637/1654-1691/1704)  -3.0 W68-W87 N19-N21
      3 1692 1530 (N13W62 L=278)  1770    179        4 (1640/1455-1739/1615)  59.0 W57-W66 N08-N19
      4 1590 1301 (N05W41 L=258)   779    173        0 (1506/1240-1653/1342) -56.3 W37-W44 N00-N09
      5 1461 1212 (N05W30 L=246)   296     84        0 (1439/1167-1482/1254)  38.7 W27-W32 N02-N06
      6 1819 1030 (S17W52 L=268)   682    142        0 (1772/ 965-1848/1059) -58.0 W47-W55 S21-S13
      7 1022  853 (S03E05 L=212)  1183    393        0 ( 960/ 692-1114/ 975)  80.0 E06-W00 S13-N04
      8 1797  905 (S23W47 L=263)   306     69        0 (1763/ 884-1823/ 932)   0.0 W43-W50 S24-S22
      9  650  880 (N08E25 L=191)   219     64        0 ( 613/ 862- 679/ 902)   0.0 E27-E22 N07-N08
     10  456  774 (N06E41 L=175)   376    119        0 ( 398/ 763- 513/ 786) -18.4 E45-E36 N04-N07
     11  693  648 (S06E29 L=187)   232    110        0 ( 643/ 632- 743/ 673)   0.0 E32-E25 S06-S05
     12  633  552 (S10E36 L=180)  1509    276        4 ( 568/ 455- 695/ 647)  81.3 E41-E32 S17-S04
     13  560  462 (S14E46 L=171)  1446    368        4 ( 500/ 362- 677/ 598) -90.0 E50-E41 S22-S04
     14  768  515 (S16E29 L=187)   430     89        0 ( 713/ 495- 808/ 542)   0.0 E33-E26 S16-S14
     15  743  435 (S20E35 L=182)   582    140        2 ( 690/ 377- 788/ 486)  22.6 E41-E29 S22-S17
     16  914  388 (S27E26 L=190)  1301    206        3 ( 860/ 303- 969/ 480)  28.1 E34-E19 S32-S21
     17  497  341 (S21E60 L=156)  1411    160        1 ( 448/ 274- 534/ 410)  24.2 E71-E51 S25-S16
     18 1077  345 (S35E18 L=198)  1239    203        3 ( 974/ 302-1166/ 396)  -3.6 E26-E10 S36-S33
     19  724  228 (S34E51 L=165)   760     98        1 ( 693/ 193- 754/ 283)  28.3 E57-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