Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1649 1604 (N32W52 L=190)  2080    255        5 (1548/1545-1734/1640) -10.0 W43-W60 N27-N34
      2  782 1593 (N35E14 L=124)   701    123        1 ( 707/1568- 847/1615) -11.3 E19-E09 N33-N37
      3  380 1231 (N14E42 L= 96)   366    103        1 ( 353/1184- 400/1272) -51.3 E44-E39 N11-N16
      4  147 1199 (N14E65 L= 73)   628    198        1 ( 112/1183- 185/1212) -11.3 E70-E60 N12-N15
      5 1010 1140 (N05E00 L=138)   313     77        1 ( 980/1093-1032/1178) -90.0 E01-W00 N01-N07
      6  318 1086 (N06E47 L= 91)   513    131        0 ( 288/1026- 346/1148) -60.3 E49-E44 N02-N09
      7 1524  967 (S08W31 L=169)   533    134        1 (1481/ 888-1556/1021) -69.4 W28-W33 S12-S04
      8 1368  962 (S08W21 L=158)   312    137        0 (1317/ 941-1426/1002) -33.7 W17-W24 S08-S04
      9  361  840 (S09E45 L= 93)   384    134        0 ( 312/ 822- 413/ 854)   0.0 E49-E40 S10-S07
     10 1797  797 (S19W54 L=192)   353     65        0 (1780/ 769-1822/ 815) -56.3 W52-W56 S20-S17
     11  286  653 (S20E56 L= 82)  2152    391        5 ( 243/ 547- 345/ 784)  86.2 E60-E52 S26-S11
     12 1753  689 (S26W51 L=189)   784    111        2 (1715/ 659-1794/ 719)  33.7 W47-W55 S27-S23
     13  907  468 (S36E12 L=126)   247     75        0 ( 867/ 454- 950/ 480)   0.0 E15-E08 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