Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1235 1878 (N59E24 L=271)   542     34        1 (1214/1856-1252/1899) -63.4 E28-E20 N55-N63
      2 1046 1504 (N21E13 L=282)   330    100        0 (1009/1463-1067/1535) -21.8 E15-E10 N18-N22
      3  302 1427 (S01E61 L=233)   652     89        2 ( 270/1400- 335/1457) -11.3 E66-E56 S02-N00
      4 1786 1229 (N29W45 L=340)  2095    418        3 (1760/1058-1835/1408) -71.6 W42-W52 N19-N41
      5 1722 1186 (N24W39 L=334)   870    295        2 (1676/1072-1766/1278) -48.0 W34-W45 N17-N29
      6 1545 1203 (N19W25 L=320)   339    110        0 (1519/1149-1571/1252)  90.0 W24-W26 N14-N21
      7 1598 1011 (N10W34 L=328)   246     53        1 (1568/ 986-1613/1035)   0.0 W31-W35 N08-N11
      8  229  968 (S29E56 L=238)  2135    328        3 ( 107/ 921- 385/ 992)  11.3 E79-E39 S33-S25
      9 1799  769 (N04W59 L=353)   862    101        0 (1747/ 750-1852/ 791)  26.6 W53-W65 N01-N06
     10  815  740 (S28E04 L=290)   430    103        1 ( 767/ 701- 848/ 781)  71.6 E06-E02 S31-S25
     11 1262  569 (S24W29 L=323)   590    199        0 (1166/ 547-1358/ 591)  32.5 W23-W34 S27-S20
     12 1504  445 (S23W52 L=347)  1385    285        2 (1401/ 372-1593/ 520)  74.1 W47-W57 S30-S16
     13 1517  386 (S25W58 L=353)   493     80        0 (1479/ 363-1555/ 411)  53.1 W55-W60 S27-S22
     14  755  319 (S59W09 L=304)   310     32        0 ( 725/ 306- 781/ 332)  31.0 W06-W11 S61-S57
  

    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