Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1668 1596 (N21W68 L= 34)  2016    260        5 (1631/1486-1700/1695)  28.8 W56-W81 N16-N27
      2 1504 1607 (N28W53 L= 19)  1334    172        1 (1430/1548-1567/1658) -73.3 W49-W55 N22-N32
      3 1349 1445 (N23W32 L=358)   396     76        1 (1323/1404-1375/1477)  45.0 W30-W34 N20-N24
      4 1205 1434 (N26W22 L=348)   335    102        1 (1162/1392-1238/1466) -80.5 W20-W23 N23-N29
      5 1520 1403 (N16W42 L=  8)   985    281        0 (1416/1313-1611/1464) -58.4 W36-W45 N08-N21
      6  667 1373 (N36E16 L=311)   335     52        1 ( 639/1351- 694/1397)  14.0 E18-E13 N34-N37
      7 1144 1319 (N21W14 L=341)   213     48        1 (1121/1295-1164/1345)  71.6 W13-W15 N19-N22
      8 1608 1087 (S04W37 L=  3)   379    119        1 (1572/1043-1637/1137)  29.7 W33-W40 S05-S01
      9  172 1032 (N23E67 L=260)  2513    259        5 ( 103/ 943- 255/1091)  13.5 E82-E55 N17-N26
     10  914  846 (S01E10 L=316)   257     44        1 ( 891/ 820- 938/ 870) -90.0 E11-E09 S02-N01
     11 1534  785 (S19W26 L=352)   835    270        1 (1400/ 745-1599/ 847)  -7.6 W16-W31 S21-S16
     12 1711  774 (S26W40 L=  7)  1304    210        3 (1631/ 714-1804/ 839)   3.2 W32-W50 S27-S23
     13  839  716 (S07E18 L=308)   353    112        1 ( 814/ 675- 866/ 765)  71.6 E20-E15 S09-S03
     14  870  287 (S36E33 L=293)  3087    480        6 ( 799/ 124- 974/ 517)  30.0 E67-E15 S51-S21
  

    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