Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1224 1778 (N56W06 L= 86)   937    164        1 (1137/1751-1299/1807)  -3.2 E03-W15 N54-N58
      2  585 1574 (N30E41 L= 39)  1277    233        1 ( 534/1467- 665/1637)  80.5 E43-E36 N22-N35
      3  704 1549 (N30E30 L= 49)   901    179        2 ( 678/1445- 737/1626) -61.7 E34-E26 N22-N35
      4  329 1553 (N25E66 L= 13)   656    145        1 ( 287/1507- 375/1586)  39.8 E69-E59 N21-N27
      5 1432 1534 (N38W25 L=104)   538     77        0 (1392/1507-1479/1555)  26.6 W21-W29 N35-N40
      6  391 1496 (N22E54 L= 25)   950    117        1 ( 361/1447- 426/1546) -81.9 E57-E50 N18-N25
      7 1820 1346 (N30W62 L=142)  1428    137        1 (1754/1325-1889/1362)   6.8 W53-W78 N28-N31
      8  427 1320 (N12E44 L= 35)   326    109        1 ( 402/1274- 462/1354)  78.7 E45-E41 N08-N13
      9  314 1202 (N03E51 L= 28)   640    130        1 ( 264/1143- 349/1236) -18.4 E56-E46 N00-N05
     10  707  959 (S07E19 L= 61)   722    212        1 ( 650/ 872- 768/1040)  61.4 E21-E15 S12-S01
     11 1325  958 (N00W19 L= 98)   870    174        1 (1262/ 881-1365/1034)  66.0 W16-W21 S05-N04
     12 1826  658 (S13W69 L=148)   845    121        0 (1801/ 606-1856/ 707)  81.9 W66-W71 S16-S09
     13 1531  624 (S18W40 L=119)   476    192        0 (1462/ 594-1589/ 677)  24.0 W34-W43 S19-S14
     14 1590  518 (S24W49 L=128)   570     93        2 (1543/ 494-1633/ 544)  26.6 W45-W52 S25-S22
     15 1282  337 (S41W32 L=112)  1268    225        1 (1160/ 318-1374/ 368)   5.7 W21-W41 S43-S38
  

    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