Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  635 1724 (N25E47 L=192)   791    168        0 ( 585/1649- 669/1789) -61.4 E53-E45 N19-N30
      2  489 1646 (N17E54 L=186)   970    232        3 ( 457/1527- 514/1741) -51.3 E62-E48 N09-N24
      3  358 1555 (N09E60 L=179)   399     82        3 ( 330/1531- 381/1590) -53.1 E63-E57 N07-N11
      4  417 1565 (N11E55 L=185)   370     70        1 ( 384/1546- 448/1584)  36.9 E57-E52 N09-N12
      5  643 1534 (N13E36 L=204)   318    107        0 ( 616/1482- 684/1574) -32.0 E39-E31 N10-N15
      6 1200 1444 (N21E01 L=239)   359    131        1 (1155/1404-1266/1475)  60.3 E02-W02 N17-N24
      7  218 1251 (S11E61 L=178)  6941      0       12 ( 116/ 997- 320/1410)  59.0 E72-E53 S26-N00
      8  368 1261 (S08E47 L=193)   779    160        2 ( 294/1218- 437/1295)  18.4 E53-E41 S10-S05
      9 1689 1128 (N17W38 L=278)   278     71        1 (1651/1109-1726/1152)  38.7 W35-W40 N14-N18
     10  688 1098 (S11E21 L=219)   306    102        0 ( 662/1046- 710/1148) -45.0 E23-E18 S13-S08
     11  896  994 (S12E06 L=233)   199     76        0 ( 856/ 977- 933/1013)  36.9 E08-E04 S13-S10
     12 1371  575 (S22W34 L=274)   374    145        0 (1326/ 517-1418/ 630) -15.3 W28-W39 S24-S20
     13 1528  579 (S17W44 L=284)   346    112        0 (1503/ 528-1567/ 626) -81.9 W43-W46 S20-S13
     14 1659  518 (S16W58 L=298)  1378    120        3 (1598/ 479-1721/ 569)  20.0 W54-W67 S19-S13
     15  947  388 (S47W17 L=256)  1715    360        4 ( 801/ 323-1103/ 465)   4.1 W02-W31 S49-S42
  

    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