Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1742 1484 (N31W63 L=336)   947     90        2 (1702/1461-1784/1512) -26.6 W57-W69 N29-N33
      2  934 1455 (N31E07 L=266)   362    169        0 ( 864/1417-1011/1492) -24.4 E11-W00 N28-N33
      3  535 1463 (N31E38 L=235)   353     99        1 ( 498/1443- 588/1489) -12.5 E41-E32 N29-N32
      4 1825  977 (S01W59 L=331)  3396    306       10 (1752/ 851-1920/1099) -70.3 W51-W73 S08-N06
      5  204  908 (S06E62 L=211)  3316    374       10 ( 133/ 760- 261/1036) -56.3 E73-E55 S14-N01
      6 1838  876 (S07W61 L=334)   547     74        1 (1817/ 836-1858/ 905)  63.4 W58-W63 S09-S05
      7  368  823 (S10E45 L=227)   347     62        1 ( 347/ 796- 390/ 844)  36.9 E47-E43 S11-S08
      8  288  765 (S14E54 L=218)   356     39        0 ( 267/ 740- 310/ 783) -45.0 E56-E51 S15-S13
      9  353  666 (S20E50 L=223)  1597    270        4 ( 279/ 592- 474/ 743)  22.6 E61-E37 S26-S14
     10 1358  708 (S16W22 L=294)   247     98        0 (1334/ 674-1399/ 727)  36.9 W20-W24 S18-S15
     11 1729  663 (S21W54 L=326)   681     94        4 (1694/ 630-1750/ 703)  78.7 W50-W56 S22-S17
     12  402  611 (S24E47 L=226)   372     75        1 ( 374/ 584- 426/ 635)  36.9 E49-E43 S25-S22
     13 1619  578 (S26W45 L=317)   404     95        1 (1603/ 533-1636/ 623) -66.8 W42-W46 S29-S22
     14 1348  523 (S29W23 L=296)  1678    292        6 (1214/ 471-1469/ 580)  18.4 W14-W32 S32-S25
     15 1073  532 (S28W04 L=276)   532     95        2 (1038/ 495-1111/ 572)  38.7 W01-W06 S30-S25
  

    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