Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1579 1521 (N41W34 L=300)   898    221        2 (1483/1464-1666/1569)  -9.5 W24-W42 N38-N43
      2  304 1507 (N16E66 L=201)   566     59        0 ( 278/1480- 333/1531)  36.9 E68-E62 N13-N17
      3  460 1368 (N10E43 L=223)  1203    258        1 ( 444/1249- 479/1491) -65.0 E48-E39 N02-N17
      4  347 1419 (N11E55 L=211)   381     48        0 ( 333/1384- 359/1448) -45.0 E57-E53 N09-N13
      5 1217 1395 (N25W06 L=272)   707    149        1 (1152/1335-1266/1446) -29.1 W00-W09 N21-N27
      6  856 1325 (N14E16 L=251)  1260    330        3 ( 737/1237- 911/1432) -67.4 E22-E10 N09-N21
      7  667 1344 (N12E28 L=238)   314     92        1 ( 635/1301- 697/1377) -38.7 E30-E25 N09-N13
      8  678 1277 (N08E25 L=241)   235     97        0 ( 644/1254- 722/1302)  -9.5 E28-E22 N07-N09
      9  843 1224 (N08E14 L=252)   272     69        1 ( 818/1190- 862/1255) -45.0 E16-E12 N05-N09
     10  892 1175 (N06E10 L=256)   211    101        2 ( 858/1142- 931/1199)  63.4 E12-E07 N03-N07
     11  674  958 (S11E20 L=246)  1357    374        3 ( 598/ 812- 765/1121)  73.3 E23-E16 S20-N00
     12  278  801 (S27E51 L=215)   476     97        2 ( 228/ 780- 318/ 828)  21.8 E57-E46 S28-S24
     13 1135  765 (S14W11 L=278)   401    183        0 (1057/ 708-1193/ 812) -21.8 W05-W15 S16-S12
     14  893  723 (S21E03 L=264)   366    122        0 ( 836/ 708- 956/ 736)  23.2 E06-W01 S22-S19
     15  948  536 (S32W04 L=271)   232     82        0 ( 905/ 526- 991/ 547)   9.5 W01-W07 S33-S30
  

    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