Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1017 1843 (N56W03 L= 40)   514     49        1 ( 986/1815-1038/1864) -31.0 W00-W05 N52-N58
      2 1773 1456 (N23W61 L= 98)  4765    312       12 (1676/1356-1868/1576) -61.9 W50-W75 N16-N31
      3 1672 1503 (N26W51 L= 88)   356     28        0 (1647/1483-1692/1524)  18.4 W47-W53 N24-N27
      4  244 1408 (N25E61 L=336)   515     81        0 ( 231/1369- 258/1445) -68.2 E63-E58 N22-N27
      5 1669 1423 (N21W48 L= 85)   319     63        0 (1634/1409-1694/1444)   9.5 W44-W50 N19-N22
      6  431 1349 (N19E40 L=358)   287    116        2 ( 401/1298- 459/1396)  63.4 E41-E37 N16-N22
      7  672 1355 (N19E22 L= 15)   412    136        0 ( 618/1299- 697/1396) -45.0 E25-E19 N15-N21
      8  248 1098 (N05E54 L=343)  1177    180        1 ( 191/1029- 286/1180)  45.0 E60-E50 N01-N09
      9  230  669 (S21E64 L=333)  2699    251        8 ( 176/ 551- 267/ 758)  77.9 E71-E58 S28-S14
     10 1840  704 (S23W65 L=102)   673    111        1 (1816/ 647-1859/ 754)  90.0 W62-W66 S26-S19
     11 1562  619 (S29W38 L= 75)   321    109        0 (1510/ 592-1608/ 648) -24.0 W33-W42 S30-S26
     12  942  631 (S27E07 L= 30)   228     72        0 ( 905/ 618- 982/ 643) -11.3 E09-E04 S27-S25
     13 1413  535 (S34W27 L= 65)   787    304        2 (1331/ 416-1496/ 631)  59.0 W23-W32 S42-S27
     14 1094  334 (S49W03 L= 41)   650    221        1 ( 994/ 302-1179/ 353) -14.0 E05-W11 S51-S46
     15  793  289 (S51E26 L= 11)   770    112        2 ( 738/ 258- 835/ 331)  18.4 E32-E20 S53-S47
  

    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