Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1213 1780 (N56W05 L= 86)   913    167        0 (1126/1760-1291/1805)   0.0 E04-W14 N54-N57
      2  574 1585 (N30E42 L= 39)  1323    212        1 ( 517/1492- 655/1643)  76.0 E45-E37 N23-N35
      3  686 1559 (N30E32 L= 49)   893    185        2 ( 659/1460- 724/1625) -61.4 E36-E29 N23-N34
      4 1386 1540 (N38W21 L=102)   824    164        1 (1300/1510-1461/1560)  12.1 W13-W27 N35-N40
      5  382 1495 (N22E55 L= 26)   939    102        3 ( 354/1448- 409/1544) -74.1 E59-E51 N18-N25
      6 1786 1356 (N30W58 L=139)  1837    223        1 (1682/1326-1886/1401)  -1.8 W45-W77 N27-N32
      7  291 1209 (N03E53 L= 28)   754    152        1 ( 235/1152- 331/1244) -10.3 E59-E48 N00-N05
      8  689  973 (S06E20 L= 61)   712    189        0 ( 628/ 899- 743/1053)  59.0 E23-E17 S11-N00
      9 1297  960 (S00W17 L= 98)   829    197        0 (1222/ 885-1339/1033)  60.9 W13-W19 S05-N04
     10 1817  662 (S13W67 L=148)   842    116        3 (1790/ 611-1846/ 713)  81.9 W64-W69 S16-S09
     11 1516  633 (S18W38 L=119)   566    219        0 (1440/ 596-1573/ 681)  18.4 W32-W41 S20-S14
     12 1573  523 (S24W47 L=128)   514    120        0 (1522/ 504-1633/ 556)  26.6 W43-W51 S25-S21
     13 1295  341 (S41W33 L=114)   961    130        1 (1238/ 320-1365/ 382)  16.7 W29-W39 S42-S37
  

    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