Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  830 1500 (N27E12 L=360)   312    103        0 ( 793/1459- 851/1528)  90.0 E14-E10 N24-N29
      2  938 1443 (N23E05 L=  7)   228     91        0 ( 898/1426- 975/1457) -11.3 E07-E02 N21-N23
      3  203 1321 (N18E63 L=309)  2589    220        7 ( 162/1235- 240/1412)  84.8 E70-E57 N12-N24
      4  266 1300 (N16E55 L=317)   548    117        4 ( 237/1256- 305/1344)  38.7 E57-E51 N13-N19
      5  545 1094 (N02E30 L=342)   425    104        1 ( 512/1055- 587/1138)  38.7 E32-E26 N00-N05
      6  386  764 (S17E45 L=327)  1162    344        0 ( 307/ 631- 466/ 905) -66.0 E49-E40 S25-S07
      7  159  731 (S17E72 L=300)   926     84        0 ( 121/ 696- 197/ 755) -12.1 E82-E67 S19-S15
      8 1697  607 (S29W52 L= 63)   822    177        3 (1653/ 518-1732/ 679)  90.0 W49-W54 S34-S24
      9 1301  641 (S27W18 L= 30)   212     50        0 (1268/ 630-1331/ 652)   0.0 W15-W20 S27-S25
     10  384  471 (S35E57 L=315)  1082    133        1 ( 321/ 438- 454/ 500)   7.8 E69-E47 S37-S33
     11  546  403 (S41E43 L=328)   325     72        0 ( 509/ 384- 583/ 424)  11.3 E48-E38 S42-S39
     12 1575  365 (S46W53 L= 65)   680     49        1 (1543/ 340-1599/ 389)   9.5 W49-W58 S48-S44
     13 1263  347 (S48W20 L= 32)  1675    274        4 (1128/ 307-1381/ 387)  -6.8 W07-W32 S51-S44
     14 1048  339 (S48W00 L= 12)   330     51        1 (1025/ 318-1076/ 367) -45.0 E01-W02 S50-S46
     15  661  225 (S57E48 L=324)   541     64        0 ( 633/ 213- 698/ 244)   5.2 E53-E41 S58-S55
  

    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