Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  742 1702 (N27E40 L=354)   498    144        0 ( 695/1638- 772/1744) -28.6 E46-E34 N23-N29
      2  515 1695 (N22E58 L=336)   535    118        3 ( 494/1656- 543/1743) -54.5 E60-E52 N18-N25
      3  590 1691 (N23E51 L=343)   581     95        2 ( 557/1654- 615/1726) -68.2 E53-E48 N20-N25
      4  713 1561 (N18E34 L=359)   837    230        1 ( 648/1469- 779/1635) -25.0 E41-E26 N13-N21
      5 1736 1427 (N41W41 L= 75)  1628    244        2 (1671/1313-1789/1510) -36.9 W33-W46 N34-N45
      6  518 1375 (N02E40 L=354)   818    226        2 ( 435/1354- 641/1403)  15.9 E46-E31 N00-N05
      7 1046 1188 (N05E03 L= 31)  1203    426        7 ( 861/1110-1221/1277)  48.6 E11-W05 S04-N13
      8 1863 1219 (N32W56 L= 90)  1216    115        1 (1826/1154-1888/1273) -76.0 W51-W60 N27-N35
      9 1719 1180 (N24W40 L= 74)   411     95        0 (1682/1151-1759/1220)  -7.1 W36-W44 N22-N25
     10  226 1144 (S17E58 L=336)   435    105        1 ( 194/1102- 261/1174)  29.7 E61-E54 S19-S14
     11  392  936 (S26E38 L=355)   262     90        1 ( 356/ 899- 410/ 970) -31.0 E41-E36 S27-S24
     12  206  728 (S43E62 L=332)  1085    126        0 ( 159/ 683- 263/ 762)  15.1 E77-E51 S46-S39
     13  935  511 (S37W10 L= 44)   228    103        0 ( 894/ 498- 987/ 532)  33.7 W07-W13 S37-S33
  

    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