Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1261 1629 (N35E01 L=306)   791    137        0 (1195/1585-1332/1661)   0.0 E06-W04 N32-N36
      2  898 1456 (N14E18 L=289)   238     43        0 ( 868/1440- 929/1472)   0.0 E19-E15 N13-N15
      3 1801 1335 (N33W47 L=354)   423     31        1 (1774/1318-1825/1357)  18.4 W44-W50 N31-N34
      4  449 1335 (S02E42 L=265)   301     63        2 ( 416/1318- 483/1352)   9.5 E45-E39 S02-N00
      5 1408 1309 (N18W15 L=322)   401    103        0 (1354/1277-1458/1331)   7.1 W11-W19 N17-N19
      6 1796 1112 (N19W48 L=355)  1454    288        1 (1755/ 991-1827/1255) -71.6 W43-W52 N11-N27
      7  122 1092 (S20E71 L=236)  1533    112        2 (  92/1031- 148/1140)  36.9 E77-E67 S23-S17
      8  645 1018 (S16E22 L=285)   265    112        0 ( 633/ 962- 670/1066) -59.0 E23-E19 S18-S13
      9 1747  971 (N09W46 L=353)   268     22        0 (1731/ 950-1763/ 991)  71.6 W44-W47 N07-N10
     10 1589  962 (N04W34 L=341)   284     82        0 (1545/ 947-1629/ 980)  31.0 W31-W36 N02-N05
     11  685  814 (S27E16 L=292)   368     91        0 ( 640/ 784- 724/ 839)  -9.5 E18-E12 S27-S25
     12  405  614 (S46E38 L=269)  1777    375        1 ( 256/ 547- 577/ 665)  -1.5 E57-E19 S48-S42
     13 1793  521 (S12W74 L= 21)  1475    150        6 (1761/ 467-1835/ 587) -45.0 W69-W80 S14-S07
     14 1555  413 (S26W57 L=  4)   918    163        0 (1463/ 379-1614/ 465)   6.3 W46-W64 S27-S23
     15 1470  249 (S37W68 L= 15)   858     87        0 (1436/ 229-1510/ 281)   9.5 W61-W74 S38-S35
  

    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