Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1648 1600 (N31W52 L=190)  1822    297        3 (1559/1543-1727/1637) -35.0 W44-W60 N27-N34
      2  713 1597 (N36E19 L=119)   397     74        1 ( 675/1565- 749/1617)   0.0 E22-E16 N33-N37
      3  809 1589 (N35E12 L=127)   290     57        0 ( 782/1563- 830/1609) -45.0 E14-E10 N32-N36
      4  365 1241 (N15E43 L= 96)   267     74        3 ( 344/1205- 385/1269) -53.1 E44-E41 N12-N16
      5  142 1198 (N14E66 L= 73)   597    187        2 ( 108/1182- 175/1212) -11.3 E71-E61 N12-N15
      6  993 1141 (N05E01 L=137)   273     81        1 ( 965/1091-1015/1176) -80.5 E02-W00 N01-N07
      7  313 1066 (N05E47 L= 91)   335     85        1 ( 296/1025- 335/1106) -59.0 E48-E45 N02-N07
      8 1513  959 (S08W30 L=169)   527    159        1 (1468/ 876-1551/1021) -58.0 W27-W32 S13-S04
      9  347  838 (S09E46 L= 92)   366    116        1 ( 303/ 822- 392/ 854)   0.0 E50-E42 S10-S07
     10 1785  783 (S20W53 L=192)   441     81        2 (1758/ 748-1803/ 814) -68.2 W50-W55 S22-S17
     11  290  635 (S21E56 L= 82)  2628    500       11 ( 229/ 528- 361/ 742)  81.3 E61-E50 S27-S14
     12 1746  689 (S26W51 L=189)   700    108        1 (1707/ 661-1784/ 719)  33.7 W47-W54 S27-S23
     13  900  467 (S37E13 L=126)   222     69        1 ( 869/ 451- 946/ 483)   9.5 E15-E09 S37-S35
  

    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