Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1322 1505 (N27W17 L=  2)   232     34        0 (1305/1478-1337/1526) -71.6 W15-W17 N25-N28
      2  193 1124 (S01E60 L=285)   557     91        2 ( 168/1099- 223/1161) -26.6 E63-E57 S02-N00
      3 1799 1095 (N06W53 L= 38)   437     77        1 (1776/1058-1822/1138) -59.0 W50-W55 N03-N08
      4 1688 1063 (N03W43 L= 28)   335    106        0 (1641/1042-1724/1096)  26.6 W39-W45 N01-N05
      5 1124 1051 (S02W06 L=351)   195     65        0 (1109/1017-1140/1088)  90.0 W04-W06 S04-N00
      6  132  841 (S18E68 L=277)  3134    330        3 ( 105/ 722- 158/ 945)  72.9 E72-E64 S24-S11
      7 1464  879 (S10W28 L= 14)   579    230        0 (1350/ 833-1569/ 904)  19.7 W21-W35 S13-S07
      8  335  798 (S21E47 L=299)   747    195        1 ( 300/ 713- 383/ 879)  51.3 E50-E41 S26-S15
      9  900  847 (S16E07 L=339)   334    114        0 ( 839/ 825- 960/ 869)  20.6 E10-E02 S17-S14
     10 1611  745 (S17W41 L= 26)   294     92        1 (1581/ 705-1651/ 771)  45.0 W39-W44 S19-S14
     11  694  663 (S28E20 L=325)   378    137        1 ( 647/ 630- 739/ 694)  23.2 E23-E16 S30-S26
     12 1302  634 (S26W21 L=  6)   300     88        0 (1254/ 596-1337/ 667)  45.0 W18-W23 S29-S23
     13 1513  546 (S30W39 L= 24)  2677    500        2 (1292/ 457-1742/ 656)  27.3 W24-W55 S38-S20
     14 1217  437 (S40W20 L=  5)   227     30        1 (1196/ 418-1241/ 455) -14.0 W17-W21 S41-S39
  

    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