Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  976 1887 (N47E39 L=111)   509     45        2 ( 955/1868-1009/1906)  78.7 E42-E35 N44-N49
      2  782 1857 (N38E49 L=100)  1045    147        0 ( 726/1829- 859/1877)  58.0 E53-E44 N34-N42
      3 1175 1640 (N33E09 L=141)   705    102        2 (1137/1593-1218/1681) -26.6 E12-E04 N30-N35
      4  611 1481 (N09E37 L=113)   531     87        1 ( 568/1452- 657/1504)  45.0 E39-E33 N06-N10
      5  413 1452 (N03E50 L= 99)   354     59        0 ( 394/1421- 439/1477)  71.6 E51-E48 N01-N04
      6  976 1289 (N06E09 L=140)   342    132        1 ( 928/1246-1004/1345)  81.9 E10-E07 N02-N09
      7 1755 1274 (N29W41 L=191)   427     86        1 (1725/1227-1776/1315) -38.7 W38-W43 N26-N30
      8  538 1227 (S07E33 L=116)   515    152        0 ( 495/1165- 570/1287) -40.6 E37-E30 S10-S04
      9  302 1179 (S15E51 L= 99)  1034    286        1 ( 203/1103- 358/1267)  47.5 E59-E47 S20-S08
     10  133 1132 (S20E71 L= 79)   765     84        2 ( 116/1093- 152/1178) -59.0 E74-E66 S21-S16
     11  613 1075 (S14E25 L=125)   649    235        3 ( 539/1033- 710/1106)  28.6 E29-E18 S17-S11
     12  780  729 (S30E07 L=143)   227     52        1 ( 760/ 709- 812/ 754) -14.0 E08-E04 S30-S28
     13 1471  661 (S14W37 L=186)  1107    296        1 (1342/ 630-1601/ 718)  40.6 W29-W44 S19-S07
  

    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