Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  638 1693 (N60E08 L= 56)  1972    393        1 ( 475/1609- 779/1802)   6.5 E30-W14 N56-N64
      2 1008 1583 (N39W17 L= 82)   236     77        1 ( 971/1557-1034/1616)  15.9 W13-W20 N37-N40
      3 1213 1357 (N20W20 L= 85)   535    153        0 (1131/1337-1291/1372) -29.1 W15-W24 N17-N22
      4 1849 1090 (S14W57 L=121)  3883    439       11 (1795/ 887-1914/1293)  48.0 W47-W65 S24-S02
      5 1890 1216 (S09W67 L=131)  1021    101        3 (1867/1178-1916/1255)  26.6 W62-W72 S11-S06
      6 1502 1199 (N03W32 L= 97)   364    107        0 (1485/1148-1517/1251)  51.3 W30-W34 N00-N05
      7  249 1128 (N30E53 L= 12)   499    113        0 ( 200/1107- 296/1155) -14.0 E59-E47 N28-N32
      8 1926 1076 (S18W68 L=132)   639     93        1 (1900/1033-1947/1116) -63.4 W64-W71 S21-S15
      9  793 1045 (N14E13 L= 52)   885    369        5 ( 643/ 978- 921/1110) -13.2 E21-E04 N08-N16
     10 1749 1013 (S15W45 L=109)  1055    176        6 (1707/ 957-1793/1092)  29.1 W40-W50 S17-S11
     11  176 1050 (N27E63 L=  2)   404     90        0 ( 141/1031- 219/1075) -15.3 E68-E57 N25-N28
     12  550  991 (N16E29 L= 36)   403    160        0 ( 474/ 953- 616/1017) -41.2 E33-E25 N12-N19
     13  898  964 (N07E08 L= 56)   202     55        1 ( 874/ 947- 925/ 992) -45.0 E09-E07 N05-N08
     14  260  832 (N13E56 L=  8)   894    127        1 ( 230/ 771- 279/ 892)  74.1 E59-E53 N09-N16
     15  825  684 (S07E20 L= 45)   255     40        1 ( 795/ 665- 852/ 699)   0.0 E21-E18 S08-S06
     16 1740  595 (S41W41 L=105)  2108    191        4 (1659/ 537-1790/ 680)  11.3 W31-W46 S46-S35
     17  581  649 (S04E36 L= 29)   319     60        1 ( 549/ 631- 605/ 679)  11.3 E38-E33 S05-S02
     18  592  530 (S11E40 L= 25)   390    139        0 ( 560/ 460- 628/ 582)  82.9 E41-E38 S15-S07
     19  465  431 (S15E55 L= 10)   653     94        3 ( 417/ 400- 502/ 453) -38.7 E59-E51 S17-S12
     20  498  364 (S20E57 L=  7)   959    214        0 ( 414/ 330- 589/ 416) -36.0 E62-E50 S23-S14
     21 1261  350 (S41E06 L= 59)  1208    180        3 (1192/ 307-1339/ 399)   9.5 E11-W01 S43-S38
     22  967  183 (S46E38 L= 27)   769     90        1 ( 926/ 159-1008/ 213)  10.3 E43-E32 S47-S42
  

    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