Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  938 1723 (N32E29 L=181)  1208    214        3 ( 872/1631- 994/1806) -25.3 E39-E20 N27-N37
      2  536 1595 (N14E49 L=161)  1371    263        0 ( 490/1522- 626/1709) -23.2 E59-E38 N10-N20
      3  451 1654 (N16E61 L=149)   688     90        0 ( 419/1621- 471/1697) -63.4 E64-E58 N13-N19
      4  622 1617 (N17E44 L=167)   683    149        2 ( 567/1586- 680/1668)   5.7 E49-E38 N15-N19
      5  879 1484 (N15E22 L=189)   277     99        1 ( 839/1448- 903/1524)  90.0 E22-E20 N11-N17
      6 1365 1406 (N25W09 L=219)   551    211        0 (1330/1314-1384/1489) -71.6 W05-W10 N17-N29
      7 1565 1392 (N31W23 L=233)   435     74        1 (1533/1352-1590/1427) -21.8 W20-W25 N28-N32
      8  859 1392 (N09E20 L=191)   269     92        0 ( 822/1363- 904/1419)  -9.5 E22-E16 N08-N10
      9  755 1379 (N06E25 L=185)   252     61        0 ( 734/1346- 772/1416)  90.0 E25-E24 N03-N08
     10  258 1337 (S07E62 L=148)   626    128        2 ( 226/1268- 288/1390)  90.0 E63-E59 S11-S03
     11  324 1292 (S09E53 L=157)   361     72        0 ( 300/1260- 351/1330)  68.2 E55-E51 S10-S05
     12 1844 1226 (N31W53 L=263)  1036    198        0 (1818/1146-1870/1329) -59.0 W49-W56 N27-N37
     13  820 1025 (S12E11 L=199)   204     53        0 ( 808/ 992- 831/1061) -56.3 E12-E10 S13-S10
     14  799  775 (S27E06 L=204)   602    133        2 ( 744/ 745- 859/ 815)   0.0 E10-E02 S28-S24
     15 1352  437 (S29W42 L=252)   629    144        1 (1299/ 420-1431/ 471)  15.3 W37-W48 S30-S26
  

    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