Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  597 1774 (N29E58 L=350)   903     89        1 ( 565/1730- 622/1820) -16.4 E68-E51 N25-N31
      2  432 1698 (N20E68 L=341)   779     96        2 ( 397/1676- 471/1733)  12.5 E75-E63 N18-N22
      3  555 1615 (N17E48 L=  1)   942    203        3 ( 503/1534- 594/1694) -34.7 E56-E41 N12-N21
      4 1606 1501 (N41W27 L= 75)  1481    213        3 (1545/1412-1655/1582) -36.0 W20-W31 N35-N46
      5  349 1438 (N02E56 L=353)   930    168        2 ( 272/1416- 435/1461)  14.9 E64-E49 N00-N05
      6  885 1324 (N08E16 L= 33)   857    273        4 ( 767/1258-1000/1386)  53.1 E21-E10 N02-N14
      7  235 1340 (S06E64 L=345)   760    145        2 ( 187/1290- 267/1375) -14.0 E71-E58 S07-S03
      8 1735 1276 (N30W41 L= 89)   817    141        0 (1696/1209-1767/1334) -32.0 W36-W44 N27-N33
      9 1550 1278 (N24W25 L= 73)   568    160        0 (1489/1227-1613/1328) -10.3 W19-W30 N22-N25
     10 1874 1146 (N28W58 L=107)   802    109        0 (1850/1097-1900/1200) -39.8 W54-W62 N25-N30
     11  250 1001 (S25E53 L=356)   878    189        1 ( 184/ 960- 323/1045)  -7.1 E61-E45 S26-S23
     12 1028 1015 (S05W00 L= 49)   204     73        1 ( 996/ 983-1062/1043)  76.0 W00-W01 S07-S03
     13 1825  667 (S01W67 L=116)   770    100        2 (1798/ 630-1853/ 715) -11.3 W63-W74 S02-N02
  

    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