Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1189 1559 (N35W25 L=171)   323     75        1 (1152/1534-1231/1575) -18.4 W22-W28 N33-N36
      2  544 1366 (N37E27 L=119)   832    166        1 ( 494/1309- 603/1417) -48.4 E31-E22 N32-N41
      3  304 1188 (N29E48 L= 98)  1612    310        3 ( 266/1094- 354/1301) -63.4 E52-E43 N23-N37
      4 1744 1167 (S02W51 L=196)   331     85        1 (1713/1146-1773/1187) -36.9 W48-W53 S03-N00
      5 1684 1145 (S01W45 L=191)   338     74        1 (1667/1108-1703/1182)  26.6 W42-W47 S03-N00
      6  848 1121 (N16E09 L=137)   313     95        1 ( 804/1103- 903/1134)  -9.5 E11-E05 N14-N17
      7 1739 1067 (S07W48 L=193)   390    142        1 (1707/1033-1775/1095)  11.3 W44-W50 S10-S05
      8 1058  906 (S00E00 L=145)  1094    270        3 ( 973/ 790-1105/1019) -85.9 E03-W02 S07-N07
      9  143  980 (N18E68 L= 78)   670     90        1 ( 128/ 936- 158/1013) -90.0 E70-E66 N15-N19
     10 1680  944 (S13W40 L=186)   358     48        1 (1654/ 919-1707/ 967)   0.0 W37-W42 S14-S11
     11 1829  923 (S19W54 L=199)   446     85        0 (1807/ 880-1846/ 956)  38.7 W50-W55 S20-S16
     12 1021  621 (S17E09 L=137)   966    189        2 ( 946/ 533-1063/ 683) -74.7 E12-E06 S23-S12
     13  824  312 (S34E33 L=113)  1038    178        2 ( 784/ 262- 869/ 360)  28.6 E38-E27 S38-S31
  

    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