Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1629 1592 (N37W59 L=354)   415     43        0 (1605/1577-1655/1608)   0.0 W55-W62 N36-N38
      2 1078 1430 (N30W05 L=300)   715    231        2 (1043/1336-1134/1495)  70.0 W02-W10 N23-N34
      3 1657 1426 (N26W51 L=346)   752    154        0 (1609/1365-1693/1488) -69.4 W49-W53 N21-N30
      4  274 1350 (N26E61 L=234)   725     84        3 ( 251/1306- 302/1387)  68.2 E63-E58 N22-N28
      5 1160 1318 (N22W10 L=304)   337     95        0 (1111/1305-1211/1334)  -8.1 W06-W13 N21-N23
      6  337 1103 (N10E48 L=246)   764    183        4 ( 307/1034- 370/1176)  82.9 E50-E45 N06-N14
      7 1748  855 (S10W51 L=345)   535     37        2 (1720/ 832-1774/ 879)   0.0 W48-W54 S11-S08
      8 1009  819 (S08E02 L=293)   382     69        2 ( 985/ 779-1033/ 856) -78.7 E03-W00 S10-S05
      9 1291  751 (S14W16 L=310)   225     83        0 (1280/ 710-1302/ 792)  78.7 W15-W16 S16-S11
     10  296  686 (S16E57 L=237)   569     94        2 ( 271/ 655- 323/ 727) -51.3 E59-E52 S18-S13
     11  446  647 (S19E43 L=252)   313     46        1 ( 425/ 624- 468/ 670)  45.0 E45-E40 S20-S16
     12 1664  604 (S26W48 L=342)   773    144        0 (1637/ 575-1710/ 648) -35.5 W44-W52 S28-S23
     13 1661  487 (S36W53 L=347)   482     58        0 (1632/ 471-1688/ 502)   0.0 W48-W56 S36-S34
  

    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