Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1577 1520 (N41W34 L=300)   830    225        1 (1480/1458-1670/1569) -12.5 W24-W42 N38-N43
      2  296 1502 (N15E66 L=200)   539     78        1 ( 266/1466- 323/1532)  68.2 E68-E63 N12-N17
      3  455 1361 (N09E43 L=223)  1132    271        1 ( 439/1236- 473/1492) -65.0 E48-E39 N02-N17
      4 1210 1396 (N25W05 L=272)   700    188        2 (1146/1317-1259/1457) -41.2 W00-W08 N20-N27
      5  845 1336 (N14E16 L=250)  1207    367        4 ( 730/1255- 905/1452) -59.7 E23-E11 N10-N22
      6  343 1418 (N11E56 L=211)   387     52        0 ( 331/1382- 354/1450) -45.0 E57-E53 N08-N13
      7  662 1344 (N12E28 L=238)   331     88        1 ( 631/1301- 688/1378) -38.7 E30-E25 N09-N13
      8  666  955 (S11E21 L=246)  1213    357        2 ( 597/ 820- 754/1109)  73.3 E23-E17 S20-N00
      9  276  802 (S27E51 L=215)   444     86        2 ( 231/ 781- 313/ 827)  21.8 E57-E47 S28-S24
     10 1122  771 (S14W10 L=277)   390    171        0 (1044/ 717-1184/ 818) -20.0 W04-W15 S16-S12
     11  889  725 (S21E03 L=264)   342    114        0 ( 834/ 711- 950/ 739)  26.6 E06-W00 S22-S19
     12 1119  616 (S24W14 L=280)   210     40        0 (1101/ 591-1140/ 636)  71.6 W12-W14 S25-S22
     13  943  537 (S32W04 L=271)   214     75        0 ( 904/ 528- 985/ 548)  11.3 W01-W06 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