Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1763 1497 (N17W70 L=159)  1081    100        4 (1718/1466-1812/1527) -22.6 W64-W77 N14-N19
      2 1561 1453 (N21W46 L=135)   516     58        1 (1527/1423-1590/1481)   9.5 W43-W49 N18-N22
      3 1733 1428 (N15W61 L=149)  1010    164        2 (1678/1357-1773/1470) -66.0 W57-W65 N09-N18
      4  644 1406 (N37E20 L= 69)   258     93        0 ( 624/1362- 668/1448)  56.3 E21-E17 N33-N39
      5  166 1140 (N25E68 L= 21)  1552    192        4 ( 128/1053- 203/1204) -32.7 E78-E61 N19-N28
      6 1723 1130 (S01W48 L=137)   397    118        0 (1694/1093-1760/1177) -68.2 W45-W50 S04-N01
      7 1250  895 (S05W11 L=100)   601    256        2 (1188/ 823-1321/ 993) -65.6 W08-W14 S10-N01
      8 1862  899 (S19W60 L=148)  1587    112        4 (1824/ 855-1914/ 938)   4.8 W54-W69 S21-S16
      9 1667  908 (S13W40 L=128)   312     42        1 (1647/ 884-1689/ 933)  33.7 W37-W41 S14-S11
     10 1540  899 (S11W30 L=118)   278     53        0 (1520/ 877-1566/ 927) -53.1 W28-W31 S12-S08
     11  377  842 (N05E46 L= 43)   553    146        2 ( 325/ 800- 430/ 888)  20.0 E51-E40 N03-N07
     12 1311  781 (S13W13 L=101)   441     86        2 (1271/ 747-1350/ 816)  31.0 W10-W15 S14-S11
     13  342  594 (S10E57 L= 31)  1758    184        3 ( 292/ 527- 407/ 664) -60.9 E60-E53 S14-S05
     14  735  568 (S16E27 L= 62)   446    123        0 ( 710/ 511- 752/ 630)  83.7 E28-E25 S20-S11
     15  291  532 (S14E68 L= 21)  2177    144        6 ( 240/ 495- 323/ 589)  18.4 E82-E60 S16-S09
     16 1458  539 (S33W21 L=109)   900    145        1 (1386/ 517-1516/ 574)   0.0 W14-W25 S34-S30
     17  500  473 (S19E48 L= 40)   859    121        3 ( 473/ 409- 524/ 532)  48.8 E52-E44 S23-S15
     18 1032  457 (S29E11 L= 78)   539    108        2 (1005/ 403-1062/ 503)  45.0 E13-E07 S32-S25
     19 1591  364 (S53W39 L=127)   551     55        0 (1571/ 339-1612/ 386) -50.2 W34-W42 S55-S49
     20  604  328 (S31E49 L= 40)  1305    211        0 ( 507/ 300- 701/ 349)  -2.9 E58-E38 S33-S29
  

    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