Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  592 1675 (N20E49 L=270)   324     60        0 ( 570/1654- 610/1694) -11.3 E51-E46 N18-N21
      2  439 1623 (N14E59 L=260)   455     48        1 ( 414/1603- 464/1645)  33.7 E60-E56 N12-N15
      3  384 1559 (N09E60 L=258)   464    114        2 ( 355/1535- 417/1586)   0.0 E64-E56 N07-N10
      4 1710 1298 (N31W36 L=355)   316     52        1 (1689/1277-1731/1320)   0.0 W34-W38 N28-N32
      5  341 1204 (S13E48 L=270)  1047    166        2 ( 274/1148- 398/1273)  55.0 E52-E45 S17-S07
      6  152 1103 (S22E64 L=254)   633    210        1 ( 113/1071- 195/1139)  32.0 E68-E60 S24-S19
      7  308 1057 (S22E47 L=271)   592    215        0 ( 246/1008- 365/1100)  37.9 E52-E43 S25-S18
      8  759 1007 (S14E14 L=304)   249    126        0 ( 752/ 947- 768/1077) -69.4 E16-E12 S17-S09
      9 1748  936 (N11W47 L=  6)   321     30        1 (1733/ 907-1765/ 968) -71.6 W45-W48 N09-N12
     10  715  857 (S24E13 L=305)   224     84        0 ( 672/ 839- 761/ 879)   0.0 E16-E10 S24-S22
     11  371  806 (S36E38 L=280)   302     84        0 ( 345/ 778- 405/ 824)  51.3 E40-E35 S38-S33
     12 1750  594 (S06W63 L= 22)  1533    291        4 (1689/ 513-1831/ 694)  81.3 W59-W69 S12-N01
     13  253  653 (S49E51 L=267)  1129    248        1 ( 198/ 635- 309/ 676)  12.1 E58-E44 S51-S46
     14 1621  593 (S11W51 L= 10)   539    101        1 (1588/ 564-1665/ 611)  38.7 W47-W54 S13-S08
     15 1414  336 (S31W51 L= 10)  1363    395        3 (1281/ 294-1507/ 410)   7.8 W38-W60 S34-S28
  

    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