Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1321 1823 (N55W21 L= 64)   439     95        1 (1281/1803-1361/1839)  21.8 W16-W26 N52-N57
      2 1365 1694 (N42W21 L= 64)  1077    218        4 (1272/1643-1457/1737) -11.3 W13-W28 N38-N46
      3 1541 1633 (N40W36 L= 79)   660     84        0 (1511/1598-1571/1664)  45.0 W32-W39 N36-N42
      4 1134 1604 (N33W03 L= 46)   723    156        1 (1057/1547-1182/1642) -26.6 E02-W06 N28-N35
      5 1624 1603 (N38W43 L= 86)   802    148        4 (1596/1558-1654/1637)  80.5 W40-W46 N34-N41
      6 1772 1496 (N33W54 L= 97)  1353    233        2 (1714/1463-1833/1536)   4.4 W48-W61 N29-N35
      7  299 1353 (N12E53 L=350)   755    236        2 ( 240/1290- 356/1392) -21.0 E59-E46 N08-N14
      8 1714 1318 (N19W45 L= 88)   526    195        4 (1649/1255-1768/1357) -29.1 W39-W49 N15-N21
      9 1657 1261 (N15W40 L= 83)   254     73        0 (1638/1219-1672/1305) -68.2 W38-W41 N12-N17
     10 1058 1283 (N11W00 L= 43)   219     46        2 (1031/1259-1086/1304)   0.0 E01-W02 N09-N12
     11 1432 1098 (N03W24 L= 67)   871    280        2 (1362/ 989-1484/1222) -53.1 W19-W28 S03-N09
     12 1763  630 (S21W58 L=101)   500    131        1 (1721/ 603-1810/ 658)  35.5 W54-W62 S23-S18
     13  550  570 (S36E32 L= 11)   567     99        0 ( 498/ 546- 603/ 597) -14.0 E35-E27 S37-S33
  

    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