Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  537 1720 (N23E59 L=230)  4557    548       10 ( 397/1549- 689/1858) -79.9 E70-E53 N08-N36
      2  681 1794 (N31E54 L=235)   460     73        0 ( 657/1770- 701/1822) -59.0 E57-E51 N29-N34
      3  938 1752 (N36E32 L=258)  2369    404        5 ( 800/1618-1017/1818)  -8.1 E42-E19 N28-N41
      4  610 1655 (N20E48 L=242)   563    119        1 ( 588/1604- 630/1714) -41.2 E52-E44 N16-N23
      5  409 1652 (N15E66 L=223)   610     42        1 ( 388/1635- 433/1682) -53.1 E70-E63 N13-N17
      6  197 1227 (S14E65 L=224)  5640    368       14 ( 107/1099- 270/1358) -86.6 E83-E59 S22-S05
      7 1662 1082 (N17W37 L=327)   953    305        0 (1624/ 965-1708/1225) -52.4 W31-W42 N11-N24
      8 1498  994 (N06W28 L=317)   230     65        0 (1486/ 953-1514/1028) -63.4 W26-W29 N04-N08
      9  745  979 (S16E15 L=275)   197     37        1 ( 731/ 953- 764/1001) -45.0 E15-E13 S17-S14
     10  252  833 (S37E53 L=236)  1322    177        3 ( 194/ 780- 301/ 908)  35.5 E63-E47 S41-S31
     11 1810  793 (N06W59 L=349)  1247    161        1 (1767/ 726-1854/ 855)  73.3 W56-W63 N01-N11
     12  450  815 (S33E32 L=258)   399     52        1 ( 423/ 794- 481/ 849) -26.6 E34-E29 S34-S31
     13 1200  794 (S13W16 L=306)   674    258        0 (1110/ 748-1307/ 836)  24.4 W12-W23 S18-S10
  

    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