Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1087 1704 (N45W31 L= 77)   744     79        0 (1040/1679-1138/1722) -33.7 W27-W35 N42-N47
      2 1012 1692 (N47W25 L= 71)   321     48        1 ( 987/1661-1036/1711)  31.0 W22-W27 N44-N48
      3 1672 1556 (N16W64 L=110)  1010    162        2 (1646/1501-1699/1623)  28.6 W60-W72 N12-N18
      4 1601 1466 (N14W51 L= 97)   672    100        0 (1545/1449-1654/1486) -18.4 W46-W56 N12-N16
      5  961 1290 (N23W04 L= 50)   307     56        2 ( 936/1260- 990/1322)  63.4 W01-W05 N21-N25
      6 1671 1249 (N01W46 L= 92)   338     79        2 (1649/1211-1693/1291)  56.3 W44-W47 S01-N02
      7 1874 1199 (S09W65 L=112)   654     68        1 (1845/1173-1910/1218)   0.0 W61-W71 S11-S07
      8  682 1083 (N19E19 L= 28)   692    196        1 ( 614/1021- 746/1153)  24.4 E24-E13 N16-N21
      9  188 1005 (N24E63 L=343)  2345    242        5 ( 162/ 907- 234/1133) -81.9 E67-E57 N18-N32
     10 1019 1039 (N08W00 L= 46)   198     48        0 ( 992/1017-1038/1063)  26.6 E01-W01 N06-N09
     11  362  994 (N21E44 L=  2)  1040    285        0 ( 245/ 906- 415/1055) -35.5 E55-E40 N14-N25
     12  284  881 (N15E54 L=353)   826    172        1 ( 256/ 815- 321/ 964) -84.3 E56-E50 N10-N20
     13 1776  884 (S23W46 L= 92)   824    155        1 (1733/ 818-1818/ 948)  21.8 W41-W51 S26-S20
     14 1417  771 (S18W16 L= 62)  1041    348        2 (1251/ 753-1571/ 805) -17.7 W05-W27 S22-S13
     15  217  758 (N09E65 L=341)   622    103        1 ( 194/ 723- 259/ 800) -45.0 E67-E61 N06-N11
     16  879  609 (S13E19 L= 27)   249     74        0 ( 848/ 593- 921/ 625) -11.3 E21-E16 S13-S12
     17  546  451 (S15E48 L=358)   661    152        1 ( 513/ 388- 575/ 524)  38.7 E52-E42 S19-S11
     18  888  475 (S22E24 L= 22)   274     41        0 ( 870/ 450- 912/ 493)  33.7 E25-E22 S23-S20
     19  480  393 (S18E58 L=348)   524     65        0 ( 452/ 375- 521/ 415) -31.0 E60-E54 S19-S15
     20  662  286 (S29E51 L=355)   474     53        1 ( 643/ 256- 685/ 316)  39.8 E55-E47 S31-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