Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1563 1590 (N31W44 L=194)  1407    181        3 (1487/1545-1630/1616)   4.4 W37-W50 N27-N32
      2  514 1570 (N36E35 L=115)   706    187        2 ( 441/1541- 590/1591)   0.0 E41-E28 N34-N37
      3 1719 1390 (N17W51 L=201)   426     62        1 (1692/1362-1741/1422) -90.0 W48-W52 N15-N18
      4 1862 1263 (N09W64 L=214)   832    149        2 (1829/1221-1887/1305)  35.5 W58-W67 N06-N11
      5  477 1239 (N14E34 L=116)   323     87        2 ( 442/1212- 518/1256) -18.4 E36-E30 N12-N15
      6  236 1224 (N15E55 L= 96)   321     79        3 ( 216/1199- 256/1247) -56.3 E56-E52 N13-N16
      7  797 1134 (N06E13 L=137)   344     75        0 ( 774/1104- 830/1179)  78.7 E14-E11 N03-N08
      8  189 1037 (N04E60 L= 90)   352     92        0 ( 170/ 995- 214/1071) -59.0 E61-E57 N01-N06
      9 1318  956 (S08W17 L=168)   350    117        2 (1271/ 906-1361/ 996) -45.0 W14-W20 S10-S05
     10 1872  916 (S12W61 L=212)  1914    322        7 (1819/ 833-1932/ 982)  33.7 W55-W69 S17-S08
     11  243  815 (S09E57 L= 94)   494    129        0 ( 214/ 790- 272/ 853)  23.2 E60-E53 S10-S07
     12 1663  785 (S20W42 L=192)   477    107        2 (1618/ 758-1700/ 816)  -8.1 W38-W45 S21-S17
     13 1619  684 (S26W39 L=190)   683     75        1 (1581/ 641-1650/ 723)  90.0 W36-W41 S28-S23
     14  248  616 (S21E62 L= 89)  3745    585       15 ( 171/ 527- 329/ 689) -57.5 E69-E51 S27-S16
     15  326  551 (S26E56 L= 95)   474     65        2 ( 302/ 518- 343/ 579)  76.0 E58-E53 S28-S24
  

    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