Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1261 1710 (N45W38 L=353)  1329    182        1 (1202/1648-1350/1745)   3.2 W29-W47 N41-N46
      2  622 1701 (N60E26 L=289)   668    113        2 ( 593/1650- 648/1738) -56.3 E30-E21 N54-N63
      3 1462 1572 (N31W44 L=359)   437     85        2 (1420/1551-1509/1588) -33.7 W40-W48 N28-N32
      4 1682 1544 (N23W63 L= 18)   413     92        0 (1643/1509-1711/1581) -71.6 W61-W64 N20-N26
      5  989 1442 (N32W06 L=321)  1865    508        2 ( 782/1364-1208/1523) -34.7 E08-W18 N23-N41
      6 1771 1492 (N18W70 L= 25)   658     57        2 (1738/1473-1804/1509) -10.3 W65-W76 N16-N18
      7  248 1403 (N41E64 L=251)   837     92        1 ( 213/1367- 283/1435) -12.5 E74-E56 N38-N42
      8 1829 1370 (N10W69 L= 24)   556     47        1 (1807/1349-1852/1390)   0.0 W65-W73 N08-N10
      9 1588 1329 (N14W43 L=358)   444    137        1 (1530/1275-1626/1367) -50.2 W39-W44 N10-N16
     10  172 1092 (N21E66 L=249)  1014    112        2 ( 153/1037- 191/1145)  66.8 E69-E62 N17-N24
     11  265 1065 (N19E54 L=262)   374    139        1 ( 253/1013- 293/1126)  90.0 E55-E50 N15-N22
     12  594 1012 (N12E27 L=288)  1091    298        1 ( 473/ 906- 695/1091) -45.0 E35-E21 N04-N18
     13  216 1019 (N16E59 L=256)   488    121        1 ( 202/ 959- 232/1077) -74.1 E61-E57 N12-N19
     14 1569  902 (S11W32 L=347)   530    157        0 (1552/ 823-1593/ 969)  63.4 W29-W34 S15-S06
     15 1689  936 (S11W42 L=357)   279    103        0 (1647/ 923-1738/ 953) -15.9 W38-W45 S12-S09
     16 1740  862 (S17W46 L=  1)   308     72        0 (1718/ 847-1775/ 890) -31.0 W43-W49 S18-S14
     17  894  710 (S10E13 L=302)   675    313        0 ( 844/ 627- 968/ 834) -82.4 E15-E09 S16-S01
     18 1040  674 (S14E05 L=310)   469    220        0 (1004/ 624-1095/ 743) -82.9 E06-E01 S17-S09
     19  740  596 (S15E25 L=290)   237    100        0 ( 712/ 568- 781/ 637) -63.4 E26-E22 S16-S11
     20 1216  466 (S32W02 L=318)  1409    307        4 (1107/ 404-1331/ 587)  24.0 E06-W12 S35-S25
     21  737  223 (S43E45 L=270)  1110    179        1 ( 670/ 192- 815/ 262)   8.5 E55-E34 S45-S40
  

    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