Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  892 1370 (N28E06 L=157)   222     73        0 ( 862/1348- 923/1387)   0.0 E08-E04 N26-N28
      2 1513 1290 (N17W35 L=199)   526    231        1 (1415/1261-1598/1358) -33.7 W29-W41 N14-N22
      3  683 1041 (N08E21 L=142)   438    108        2 ( 646/1011- 736/1082) -18.4 E23-E17 N06-N10
      4 1545 1033 (N01W34 L=197)   279     85        1 (1527/ 997-1563/1070)  45.0 W32-W35 S01-N02
      5 1888 1012 (S05W67 L=231)  1397    101        3 (1845/ 982-1941/1039) -12.5 W61-W79 S06-S02
      6  936  885 (S03E06 L=157)   358    120        1 ( 890/ 842- 981/ 917) -51.3 E09-E03 S05-N00
      7 1780  825 (S15W54 L=217)   617    191        0 (1702/ 784-1828/ 849) -11.3 W45-W60 S18-S13
      8  869  698 (S14E12 L=151)   209    117        0 ( 825/ 662- 889/ 745)  45.0 E15-E10 S16-S11
      9  676  702 (S13E25 L=139)   499    160        1 ( 609/ 677- 728/ 742)   6.3 E29-E20 S14-S10
     10 1324  604 (S24W17 L=180)  1858    505        4 (1164/ 431-1485/ 740)  38.0 W05-W28 S35-S16
     11  266  701 (S12E60 L=103)   397     67        0 ( 251/ 670- 284/ 732) -90.0 E61-E58 S13-S09
     12 1741  641 (S27W53 L=217)   673    123        0 (1700/ 592-1781/ 686)  39.8 W49-W57 S30-S24
     13  580  329 (S40E47 L=116)   498     60        1 ( 563/ 295- 599/ 365)  33.7 E52-E42 S42-S36
     14 1049  266 (S49E06 L=157)   498     65        0 (1021/ 246-1084/ 295) -26.6 E08-E02 S51-S45
  

    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