Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1078 1856 (N58W45 L= 92)   530     78        2 (1036/1828-1120/1879)  -9.5 W39-W52 N56-N59
      2 1596 1598 (N24W59 L=107)   778     87        0 (1555/1560-1636/1628) -68.2 W55-W61 N21-N26
      3 1284 1565 (N32W33 L= 81)   448     69        1 (1255/1533-1314/1594) -63.4 W30-W34 N29-N33
      4 1631 1436 (N15W51 L= 99)   605    116        1 (1611/1375-1650/1498)  45.0 W48-W54 N10-N17
      5 1425 1463 (N22W37 L= 85)   311     46        1 (1399/1446-1451/1491) -90.0 W35-W39 N20-N23
      6 1753 1387 (N08W60 L=107)  2216    292        5 (1641/1337-1859/1443) -15.6 W47-W72 N02-N11
      7  535 1368 (N38E26 L= 21)   275     54        0 ( 514/1345- 566/1394) -38.7 E28-E23 N36-N40
      8 1673 1203 (N01W45 L= 93)   896    200        0 (1648/1109-1696/1296)  73.3 W42-W47 S04-N06
      9 1149 1225 (N16W12 L= 60)   340    140        0 (1095/1176-1209/1256)  14.0 W07-W15 N14-N16
     10  498 1086 (N21E32 L= 16)   461    123        0 ( 445/1056- 555/1121) -29.7 E35-E28 N18-N24
     11  781 1061 (N14E13 L= 34)   499    125        0 ( 730/1038- 843/1099) -45.0 E16-E09 N12-N17
     12 1885  996 (S18W61 L=109)  1260    140        2 (1852/ 940-1921/1058) -56.3 W57-W67 S22-S13
     13 1815 1016 (S14W53 L=101)   461     74        2 (1796/ 980-1841/1054)  53.1 W50-W55 S15-S11
     14  716  951 (N09E20 L= 28)   466     97        1 ( 689/ 909- 758/ 984)  31.0 E21-E16 N07-N11
     15  361  836 (N09E47 L=  1)  1017    246        0 ( 297/ 729- 396/ 949) -77.9 E50-E44 N02-N16
     16 1861  912 (S22W57 L=105)   591     57        1 (1844/ 881-1882/ 947) -63.4 W54-W60 S24-S18
     17 1440  780 (S17W19 L= 67)  1507    423        1 (1289/ 693-1568/ 916)   8.1 W09-W30 S19-S11
     18  926  751 (S06E12 L= 36)   197     65        0 ( 901/ 720- 945/ 784)  36.9 E13-E09 S07-S04
     19 1618  531 (S39W31 L= 78)  5036    617        7 (1365/ 364-1854/ 688)   3.2 W07-W61 S45-S33
     20  721  596 (S11E28 L= 20)   363     78        0 ( 679/ 580- 767/ 613) -21.8 E30-E25 S13-S10
     21  339  485 (S13E64 L=343)  1512    194        1 ( 312/ 407- 377/ 587)  61.7 E70-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