Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1332 1605 (N34W22 L=  1)  1838    370        3 (1196/1463-1478/1741) -49.6 W13-W30 N24-N44
      2  544 1530 (N28E35 L=305)   260     43        2 ( 522/1513- 570/1546) -26.6 E36-E32 N27-N29
      3  592 1375 (N18E28 L=311)   388    102        1 ( 573/1320- 608/1419) -71.6 E30-E27 N14-N20
      4  458 1247 (N10E37 L=302)   534    153        1 ( 389/1225- 524/1266)  -5.2 E42-E31 N08-N11
      5 1117 1083 (S00W05 L=345)   204     65        0 (1083/1066-1144/1099)   0.0 W03-W07 S01-N00
      6 1076  900 (S11W03 L=342)   545    214        3 (1031/ 795-1110/1003)  72.9 W00-W05 S17-S04
      7  747  923 (S10E17 L=322)   188     77        1 ( 717/ 884- 770/ 954) -59.0 E18-E15 S12-S07
      8  458  725 (S21E38 L=301)  1547    409        3 ( 366/ 603- 562/ 876)  38.3 E48-E29 S29-S12
      9 1891  830 (S12W66 L= 45)   530    116        1 (1872/ 802-1922/ 856)  18.4 W63-W70 S13-S10
     10 1837  793 (S15W60 L= 39)   935    239        4 (1787/ 766-1896/ 824)  -8.7 W54-W67 S16-S13
     11 1796  743 (S18W56 L= 36)   512    116        3 (1771/ 713-1819/ 780) -31.0 W53-W59 S20-S16
     12  758  650 (S27E18 L=322)   520    126        0 ( 726/ 593- 790/ 708)  58.0 E20-E14 S30-S22
     13 1336  601 (S29W22 L=  1)   324     97        1 (1313/ 551-1360/ 658)  81.9 W20-W23 S32-S25
     14 1030  544 (S34W01 L=340)   619    133        3 ( 981/ 510-1087/ 591)  39.8 E02-W04 S35-S30
     15  401  541 (S33E47 L=292)   322     54        0 ( 376/ 524- 423/ 560)   0.0 E49-E45 S34-S31
  

    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