Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1593 1593 (N24W58 L=106)   765    104        0 (1550/1548-1634/1624) -71.6 W55-W60 N20-N26
      2 1279 1560 (N32W32 L= 81)   395     62        1 (1255/1533-1309/1588) -63.4 W29-W34 N29-N33
      3 1626 1435 (N15W51 L= 99)   538    127        1 (1608/1371-1642/1499)  49.4 W47-W55 N10-N17
      4 1421 1460 (N22W37 L= 85)   251      1        0 (1403/1441-1441/1480) -71.6 W35-W38 N20-N23
      5 1758 1383 (N08W60 L=108)  2209    325        5 (1639/1326-1861/1439) -15.6 W47-W72 N01-N11
      6  535 1365 (N38E26 L= 22)   269     72        0 ( 508/1346- 574/1389) -21.8 E28-E23 N36-N39
      7 1666 1201 (N01W44 L= 93)   762    166        0 (1643/1116-1688/1289)  71.6 W41-W46 S03-N06
      8 1149 1226 (N16W12 L= 60)   342    163        0 (1089/1175-1208/1259)  12.5 W07-W16 N14-N16
      9  489 1085 (N21E33 L= 16)   470    128        0 ( 437/1055- 547/1122) -32.0 E36-E28 N18-N24
     10  774 1057 (N14E14 L= 34)   466    133        0 ( 719/1034- 841/1092) -45.0 E16-E10 N11-N17
     11 1881  993 (S18W61 L=109)  1153    121        4 (1848/ 940-1918/1055) -58.0 W56-W66 S21-S13
     12 1813 1009 (S14W52 L=101)   373     81        2 (1791/ 975-1836/1044)  26.6 W49-W55 S15-S12
     13  702  944 (N09E21 L= 28)   336     62        1 ( 683/ 906- 722/ 981)  63.4 E22-E18 N07-N11
     14 1856  909 (S22W56 L=105)   536     55        2 (1839/ 879-1876/ 944) -63.4 W54-W59 S24-S18
     15 1432  775 (S17W19 L= 67)  1392    435        1 (1279/ 692-1558/ 915)  10.8 W08-W29 S19-S11
     16  369  803 (N07E47 L=  1)   738    181        1 ( 339/ 718- 390/ 891)  84.8 E49-E45 N01-N12
     17 1616  531 (S39W31 L= 79)  4967    621        6 (1362/ 363-1852/ 689)   3.2 W06-W61 S45-S33
     18  713  595 (S11E29 L= 20)   374     88        1 ( 667/ 579- 763/ 620) -18.4 E31-E25 S13-S09
     19  333  487 (S12E65 L=343)  1588    199        1 ( 306/ 407- 372/ 590)  61.7 E71-E58 S18-S05
  

    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