Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1766 1461 (N12W63 L=289)  1462    119        2 (1702/1417-1813/1495) -26.6 W57-W68 N08-N14
      2  690 1358 (N28E14 L=212)   405    116        0 ( 638/1314- 738/1396) -49.4 E17-E11 N24-N31
      3 1630 1292 (N05W43 L=270)   709    163        1 (1555/1248-1694/1328)   4.4 W36-W49 N03-N06
      4  397 1234 (N26E37 L=189)   418    102        0 ( 343/1211- 439/1269)   0.0 E42-E33 N24-N27
      5 1133 1233 (N11W10 L=237)   332     84        0 (1094/1209-1181/1261) -45.0 W08-W12 N09-N13
      6 1329 1168 (N04W20 L=247)   349     88        0 (1288/1133-1364/1204) -59.0 W18-W21 N01-N06
      7  402 1114 (N18E38 L=189)  1505    481        1 ( 240/1059- 612/1168) -20.8 E52-E23 N12-N24
      8  798  872 (S03E16 L=211)   366    177        0 ( 724/ 844- 874/ 889) -12.5 E20-E11 S04-S01
      9  767  740 (S10E21 L=206)   567    189        0 ( 721/ 684- 841/ 817) -71.6 E22-E17 S13-S04
     10  893  735 (S12E13 L=213)   237    103        0 ( 842/ 717- 931/ 768)   0.0 E16-E10 S12-S10
     11  313  553 (S12E61 L=165)  6911    378       10 ( 229/ 433- 408/ 713) -86.8 E73-E51 S21-S03
     12  482  658 (S09E41 L=185)   507     82        2 ( 444/ 629- 517/ 698) -21.8 E44-E39 S11-S06
     13 1148  650 (S22E00 L=226)   258     95        0 (1125/ 607-1171/ 696)  51.3 E02-W02 S24-S19
     14 1459  548 (S36W19 L=246)  1825    540        3 (1246/ 401-1662/ 695)  17.0 W01-W37 S41-S30
     15  632  529 (S19E36 L=191)   380     62        1 ( 603/ 493- 672/ 561) -45.0 E36-E32 S21-S17
     16 1714  521 (S45W46 L=273)   522     82        0 (1675/ 490-1755/ 555)  18.4 W41-W51 S46-S43
     17  466  505 (S18E49 L=177)   334     71        2 ( 450/ 474- 484/ 543)  38.7 E51-E46 S19-S15
     18  857  322 (S38E30 L=196)   999    165        0 ( 787/ 266- 911/ 396)  23.6 E38-E22 S41-S33
     19 1021  255 (S47E22 L=204)   469     66        1 ( 988/ 234-1060/ 274)   0.0 E25-E18 S48-S45
  

    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