Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  931 1756 (N55E11 L=179)   317     69        1 ( 893/1731- 959/1774)  18.4 E14-E07 N52-N57
      2 1228 1734 (N53W21 L=211)   453     64        0 (1203/1708-1259/1754)   8.1 W17-W24 N50-N55
      3  533 1559 (N37E42 L=148)   454     71        2 ( 507/1530- 572/1579)   9.5 E45-E38 N35-N38
      4 1662 1528 (N35W56 L=246)   587    100        1 (1624/1505-1711/1548)  -5.2 W51-W62 N33-N36
      5  681 1500 (N34E27 L=163)   580    137        0 ( 624/1472- 751/1521)  18.4 E31-E21 N31-N35
      6  849 1467 (N32E13 L=177)   502    140        0 ( 788/1422- 903/1501) -26.6 E18-E08 N28-N33
      7  281  620 (S25E61 L=129)  1372    233        2 ( 251/ 513- 325/ 719)  29.7 E79-E51 S33-S17
      8  959  669 (S19E04 L=186)   301    137        0 ( 894/ 658-1024/ 683)   0.0 E08-W00 S19-S17
      9  497  519 (S31E41 L=150)  2827    449        6 ( 379/ 362- 619/ 680)  28.4 E77-E27 S45-S18
     10 1699  643 (S22W52 L=242)   402     76        2 (1660/ 625-1734/ 666)   0.0 W47-W55 S22-S19
     11  980  603 (S23E03 L=187)   496    181        0 ( 924/ 539-1055/ 647)  41.2 E06-W02 S27-S20
     12 1353  508 (S30W25 L=215)   352    120        0 (1298/ 484-1406/ 538)  20.6 W20-W28 S31-S28
     13 1542  360 (S43W50 L=240)   956     70        2 (1510/ 331-1575/ 394)  78.7 W45-W55 S45-S39
     14 1340  313 (S46W30 L=220)  1268    220        2 (1261/ 289-1429/ 347)   0.0 W22-W40 S48-S43
  

    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