Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  887 1826 (N45E32 L=162)   443     57        0 ( 859/1809- 923/1841)  31.0 E34-E28 N42-N46
      2  668 1715 (N31E41 L=153)   968    157        1 ( 597/1669- 725/1738)  -4.4 E47-E34 N28-N33
      3  563 1659 (N26E46 L=148)   549     82        1 ( 539/1623- 589/1704) -71.6 E48-E43 N23-N29
      4 1662 1563 (N42W41 L=235)   817     71        0 (1633/1526-1693/1601) -68.2 W37-W44 N39-N44
      5  259 1526 (N14E72 L=122)  1538     85        2 ( 226/1483- 284/1565) -36.9 E78-E65 N11-N17
      6 1546 1383 (N25W27 L=222)   538    102        0 (1503/1338-1600/1418) -23.2 W24-W31 N23-N26
      7 1756 1282 (N24W46 L=240)   773    154        0 (1705/1207-1799/1327) -29.1 W41-W50 N20-N26
      8  173 1075 (S15E64 L=130)  6177    397        9 ( 105/ 928- 264/1183)  76.0 E76-E53 S23-S07
      9 1114  992 (S07W06 L=200)   223     69        0 (1080/ 967-1149/1018)  45.0 W04-W07 S08-S04
     10 1515  807 (S10W34 L=229)   446    156        0 (1465/ 743-1563/ 865)  71.6 W32-W36 S14-S05
     11  501  787 (S29E31 L=163)   970    273        1 ( 398/ 748- 631/ 822)  -3.0 E40-E21 S30-S27
     12 1707  658 (S13W55 L=249)   666    104        1 (1678/ 625-1752/ 705)  63.4 W52-W57 S15-S09
     13  381  453 (S54E54 L=140)  1190    149        1 ( 329/ 399- 443/ 496)  12.2 E79-E42 S58-S50
     14 1540  451 (S29W52 L=246)  2547    362        2 (1379/ 402-1699/ 490)  28.4 W41-W65 S35-S22
  

    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