Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  425 1602 (N38E53 L=238)   492    115        0 ( 399/1579- 457/1626) -15.9 E56-E49 N36-N39
      2  202 1286 (N16E66 L=226)   690    127        1 ( 171/1265- 230/1315)  26.6 E70-E62 N14-N17
      3  667 1225 (N14E24 L=267)   855    182        3 ( 574/1148- 753/1305)  36.0 E29-E18 N09-N19
      4  526 1184 (N11E33 L=258)   285    103        1 ( 504/1161- 556/1213) -26.6 E35-E30 N09-N13
      5  152  916 (S08E69 L=222)  2258    319        3 ( 119/ 844- 177/ 973) -48.8 E76-E65 S12-S04
      6 1777  775 (S12W56 L=347)  3172    489        2 (1649/ 559-1880/ 970)  61.7 W47-W67 S26-N00
      7  552  889 (S07E30 L=261)   320    115        0 ( 513/ 861- 606/ 907) -18.4 E33-E26 S08-S05
      8  174  811 (S14E67 L=224)   915    215        0 ( 140/ 779- 200/ 866)  33.7 E73-E62 S16-S10
      9  275  812 (S13E54 L=237)   706    134        4 ( 251/ 746- 297/ 865)  82.9 E56-E51 S17-S09
     10  868  650 (S21E09 L=282)  1380    360        2 ( 741/ 558- 947/ 777)  47.1 E18-E04 S27-S12
     11  604  711 (S18E27 L=264)   245     34        0 ( 583/ 691- 624/ 737) -56.3 E28-E25 S19-S16
     12  592  585 (S27E30 L=262)   294    117        1 ( 575/ 538- 607/ 635)  63.4 E31-E27 S30-S22
     13  396  418 (S41E54 L=237)  1618    378        1 ( 349/ 387- 445/ 452)  26.6 E62-E46 S45-S37
  

    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