Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  662 1730 (N58E11 L=247)  3482    534        6 ( 455/1620- 866/1838)   6.5 E36-W17 N54-N62
      2 1627 1608 (N22W60 L=318)  5440    324       20 (1531/1494-1724/1718) -79.4 W49-W73 N13-N30
      3 1217 1535 (N28W25 L=283)   652    214        0 (1140/1463-1282/1611) -76.0 W23-W26 N22-N34
      4 1534 1541 (N21W47 L=305)   805    185        2 (1477/1475-1598/1605) -90.0 W44-W50 N15-N25
      5  451 1444 (N41E33 L=225)   278     67        1 ( 416/1429- 485/1456) -23.2 E36-E29 N39-N42
      6  285 1384 (N40E51 L=206)  1154    137        2 ( 260/1308- 322/1431) -82.9 E55-E46 N35-N43
      7 1687 1318 (N04W49 L=307)   491     67        0 (1655/1287-1722/1352) -53.1 W47-W52 N02-N06
      8  587  790 (S02E31 L=227)   454     89        1 ( 569/ 742- 620/ 832)  78.7 E32-E28 S04-N01
      9 1632  765 (S26W34 L=291)   260     43        0 (1610/ 742-1652/ 784) -45.0 W32-W35 S27-S24
     10  894  755 (S10E13 L=244)   233     97        1 ( 859/ 715- 931/ 783)  18.4 E16-E10 S11-S08
     11 1365  547 (S34W11 L=268)  1871    487        0 (1168/ 439-1518/ 700)  12.5 E03-W24 S37-S27
     12 1714  652 (S36W42 L=299)   325     49        1 (1688/ 625-1731/ 672)  90.0 W39-W43 S38-S34
     13 1512  438 (S46W22 L=280)   876    157        0 (1451/ 398-1575/ 496)  14.0 W16-W28 S48-S43
     14  405  413 (S21E63 L=195)  2158    210        4 ( 341/ 370- 494/ 455)  -2.3 E80-E54 S23-S17
     15 1085  159 (S58E29 L=228)   573     61        2 (1048/ 144-1119/ 181) -15.9 E34-E25 S60-S55
  

    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