Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1108 1790 (N43E22 L= 18)  2283    377        4 ( 990/1662-1237/1930) -21.3 E48-E07 N36-N53
      2  497 1721 (N21E62 L=338)  4234    279       11 ( 414/1633- 612/1813)  82.4 E71-E57 N14-N30
      3  592 1718 (N23E53 L=348)   526     62        0 ( 565/1693- 625/1740)  71.6 E54-E50 N21-N25
      4  471 1613 (N14E55 L=345)   434     58        0 ( 445/1588- 500/1632)  11.3 E57-E52 N11-N15
      5  564 1536 (N11E43 L=357)   473    112        2 ( 531/1492- 606/1591) -81.9 E44-E40 N08-N15
      6 1694 1467 (N41W35 L= 75)   344     51        1 (1671/1439-1717/1497) -63.4 W32-W37 N39-N43
      7  439 1426 (N02E48 L=352)   334     57        0 ( 414/1404- 465/1456)  71.6 E49-E46 N00-N03
      8  359 1082 (S20E44 L=356)   430     92        2 ( 323/1051- 394/1122)  45.0 E47-E41 S21-S17
      9  291 1011 (S25E50 L=351)  1228    339        3 ( 241/ 837- 321/1112) -86.6 E55-E46 S36-S19
     10 1877 1027 (N20W59 L= 99)   604     94        1 (1856/ 971-1901/1074) -39.8 W55-W63 N17-N22
     11  442 1020 (S22E36 L=  4)   345     73        1 ( 401/1002- 475/1040)  26.6 E39-E33 S23-S19
     12 1134  598 (S27W20 L= 60)   206     51        0 (1111/ 567-1159/ 622)  90.0 W18-W20 S29-S25
     13 1231  250 (S44W51 L= 91)   423     82        0 (1194/ 227-1274/ 281)   5.2 W44-W56 S45-S43
  

    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