Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1111 1889 (N54E35 L=293)   845     92        1 (1076/1864-1152/1915)  74.1 E41-E29 N49-N57
      2  729 1829 (N35E54 L=273)   657     43        2 ( 707/1806- 755/1856)  -7.1 E58-E50 N32-N37
      3  698 1578 (N16E37 L=291)  1905    465        4 ( 657/1382- 748/1801) -55.8 E49-E30 N04-N32
      4 1206 1541 (N29E05 L=322)   373    109        0 (1165/1500-1233/1588) -23.2 E09-E02 N26-N30
      5  580  730 (S35E20 L=308)  1813    359        4 ( 419/ 673- 748/ 782)  32.0 E33-E09 S43-S27
      6  898  683 (S29W03 L=330)   289    103        1 ( 871/ 633- 918/ 731) -71.6 W01-W04 S31-S25
      7 1252  704 (S17W23 L=350)   456    109        0 (1197/ 679-1304/ 726)  33.7 W19-W25 S19-S15
      8 1433  578 (S18W39 L=  7)  1229    260        2 (1367/ 516-1537/ 677)  72.9 W35-W42 S22-S09
      9 1076  610 (S27W16 L=344)   918    184        2 ( 981/ 586-1158/ 640)  31.0 W10-W20 S30-S24
     10 1251  440 (S31W35 L=  3)   299    118        0 (1204/ 420-1302/ 479)  66.8 W33-W36 S34-S27
     11 1025  452 (S39W21 L=348)   295     63        1 ( 991/ 436-1055/ 468)  45.0 W18-W22 S40-S36
     12  666  369 (S59E02 L=325)  1170    143        2 ( 609/ 320- 736/ 413)  55.3 E08-W03 S65-S52
     13  560  355 (S65E16 L=312)  1362    123        4 ( 515/ 312- 605/ 404) -53.1 E24-E08 S69-S60
     14 1491  381 (S26W57 L= 24)   472    114        0 (1436/ 364-1542/ 398)  35.5 W53-W61 S28-S23
  

    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