Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1321 1641 (N32W40 L=246)   350    100        0 (1291/1615-1363/1657)   0.0 W37-W43 N30-N33
      2 1729 1558 (N13W68 L=274)  1441    302        2 (1704/1502-1771/1599)   3.8 W63-W78 N10-N15
      3 1593 1499 (N15W51 L=257)   375     69        1 (1559/1467-1626/1531) -71.6 W49-W52 N12-N18
      4 1719 1409 (N07W57 L=263)   468     91        2 (1689/1367-1738/1445)  63.4 W54-W59 N04-N08
      5  884 1356 (N29W01 L=207)   228     87        0 ( 852/1334- 929/1369) -14.0 E01-W03 N27-N30
      6 1356 1329 (N14W28 L=234)  2277    605        5 (1073/1289-1610/1356) -23.8 W10-W44 N05-N21
      7  568 1150 (N25E25 L=181)   749    209        3 ( 533/1050- 593/1240) -90.0 E26-E22 N19-N31
      8 1832 1130 (S12W56 L=262)  1354    277        5 (1785/1005-1861/1203)  71.6 W53-W60 S19-S06
      9 1783 1129 (S10W51 L=257)   348     60        2 (1758/1112-1810/1148) -21.8 W48-W53 S11-S08
     10  948 1033 (N09E04 L=202)   262     79        0 ( 932/ 986- 965/1082)  59.0 E05-E01 N06-N11
     11 1616 1039 (S09W35 L=241)   388    111        4 (1581/1008-1650/1061) -45.0 W32-W37 S11-S07
     12 1720 1019 (S14W43 L=249)   346    115        3 (1687/ 984-1744/1056)  36.9 W40-W44 S16-S12
     13  432  951 (N17E38 L=168)   363    139        1 ( 403/ 902- 476/1012) -66.8 E39-E35 N13-N20
     14  212  924 (N19E58 L=147)   424     70        0 ( 197/ 888- 231/ 960) -78.7 E59-E57 N16-N21
     15  996  920 (N02E04 L=202)   543    128        1 ( 927/ 898-1068/ 952) -35.5 E07-W00 S01-N05
     16 1261  858 (S09W09 L=215)   229     37        2 (1244/ 833-1276/ 887)  33.7 W07-W10 S10-S07
     17 1377  678 (S23W11 L=217)  1777    378        3 (1310/ 512-1422/ 838)  71.6 W05-W13 S33-S11
     18  338  760 (N08E51 L=155)   303     46        1 ( 323/ 738- 359/ 787) -71.6 E52-E49 N06-N09
     19  366  498 (S09E61 L=145)  3594    570       16 ( 263/ 341- 493/ 693) -87.6 E66-E56 S20-N04
     20  810  489 (S18E28 L=178)   358     99        2 ( 769/ 442- 840/ 527) -80.5 E29-E26 S22-S15
     21  563  438 (S16E47 L=159)   646    243        2 ( 543/ 350- 594/ 506)  51.3 E53-E41 S21-S11
     22 1197  471 (S31E06 L=200)   273     83        0 (1165/ 447-1237/ 504) -68.2 E06-E03 S33-S27
     23  801  295 (S31E39 L=167)  1450    319        2 ( 700/ 250- 863/ 385)  12.5 E48-E30 S34-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