Loading ...
Sorry, an error occurred while loading the content.

RE: [libertybasic] SINE WAVE

Expand Messages
  • Henrik
    Could we change the line: ‘print #m , line 0 0 0 500 In the following code by something eles please   The code   nomainwin   WindowWidth = 400
    Message 1 of 19 , Jul 1, 2009
    • 0 Attachment
      Could we change the line:
      ‘print #m , "line 0 0 0 500 "
      In the following code by something eles please
       

      The code
       
      nomainwin
       
      WindowWidth = 400
      WindowHeight = WindowWidth
       
      UpperLeftX = (DisplayWidth- WindowWidth) /2
      UpperLeftY = (DisplayHeight- WindowHeight) /2
       
      open "Graph Plotting" for graphics_nsb as #m
      '#m "trapclose [quit]"
      #m "down"
      #m "color black"    'color of the Coordinates
       
      #m "size 5"         'Size of the Coordinates
       
      #m "home"
       
      #m "posxy CenterX CenterY"
       
      #m "line 0 "; CenterY; " "; CenterX * 2; " "; CenterY   'the line of X axis
      '#m "line "; CenterX; " 0 "; CenterX; " "; CenterY * 2   'the line of Y axis
       
      print #m , "line 0 0 0 500 "
       
      #m "flush"
      wait
       
      close #m
      end
       
      Thanks
      --- On Wed, 7/1/09, Stefan Pendl <pendl2megabit@...> wrote:


      From: Stefan Pendl <pendl2megabit@...>
      Subject: RE: [libertybasic] SINE WAVE
      To: libertybasic@yahoogroups.com
      Date: Wednesday, July 1, 2009, 6:04 AM








      >
      > Thanks,Could you please clear it how to move the Y axis from
      > the center to the left side.

      The top-left-hand corner of a graphics control is the origin (0/0).

      Using the HOME and POSXY graphics methods, gives us the center of the graphics control, so we can display any graph in the four
      Cartesian quadrants.

      If you only like to display the positive X-axis, just do not base the display values on CenterX and start at zero.

      The X-axis of my examples is from left to right, the Y-axis from top to bottom.

      ---
      Stefan Pendl

      Liberty BASIC Assist 4.03 ........ http://www.libertyb asic.com/ assist.html
      Liberty BASIC 4.04 public beta ... http://www.libertyb asic.com/ lb404b3setup. exe

      Windows Vista Home Premium 32-bit SP2
      AMD Turion X2 RM-70 2GHz
      4GB RAM



















      [Non-text portions of this message have been removed]
    • Stefan Pendl
      ... The format of the LINE graphics method is: LINE {StartX} {StartY} {EndX} {EndY} Your line is drawn from the top-left-hand corner to 500 pixels down to
      Message 2 of 19 , Jul 1, 2009
      • 0 Attachment
        >
        > Could we change the line:
        > ‘print #m , "line 0 0 0 500 "
        > In the following code by something eles please
        >  
        ---snip
        >  
        > open "Graph Plotting" for graphics_nsb as #m
        > '#m "trapclose [quit]"
        > #m "down"
        ---snip
        >  
        > print #m , "line 0 0 0 500 "
        >  
        > #m "flush"
        > wait
        >  
        > close #m
        > end
        >  

        The format of the LINE graphics method is:
        "LINE {StartX} {StartY} {EndX} {EndY}"

        Your line is drawn from the top-left-hand corner to 500 pixels down to the bottom.
        Where do you like the line to be drawn?

        BTW, the TRAPCLOSE window method is essential, omitting it, will only close the window, but the program will be running happily in
        the background.
        TRAPCLOSE is mandatory.

        ---
        Stefan Pendl

        Liberty BASIC Assist 4.03 ........ http://www.libertybasic.com/assist.html
        Liberty BASIC 4.04 public beta ... http://www.libertybasic.com/lb404b3setup.exe

        Windows Vista Home Premium 32-bit SP2
        AMD Turion X2 RM-70 2GHz
        4GB RAM
      • Henrik
        Thank you Stefan Pendl ... From: Stefan Pendl Subject: RE: [libertybasic] SINE WAVE To: libertybasic@yahoogroups.com Date: Thursday,
        Message 3 of 19 , Jul 2, 2009
        • 0 Attachment
          Thank you Stefan Pendl

          --- On Thu, 7/2/09, Stefan Pendl <pendl2megabit@...> wrote:


          From: Stefan Pendl <pendl2megabit@...>
          Subject: RE: [libertybasic] SINE WAVE
          To: libertybasic@yahoogroups.com
          Date: Thursday, July 2, 2009, 5:35 AM








          >
          > Could we change the line:
          > ‘print #m , "line 0 0 0 500 "
          > In the following code by something eles please
          >  
          ---snip
          >  
          > open "Graph Plotting" for graphics_nsb as #m
          > '#m "trapclose [quit]"
          > #m "down"
          ---snip
          >  
          > print #m , "line 0 0 0 500 "
          >  
          > #m "flush"
          > wait
          >  
          > close #m
          > end
          >  

          The format of the LINE graphics method is:
          "LINE {StartX} {StartY} {EndX} {EndY}"

          Your line is drawn from the top-left-hand corner to 500 pixels down to the bottom.
          Where do you like the line to be drawn?

          BTW, the TRAPCLOSE window method is essential, omitting it, will only close the window, but the program will be running happily in
          the background.
          TRAPCLOSE is mandatory.

          ---
          Stefan Pendl

          Liberty BASIC Assist 4.03 ........ http://www.libertyb asic.com/ assist.html
          Liberty BASIC 4.04 public beta ... http://www.libertyb asic.com/ lb404b3setup. exe

          Windows Vista Home Premium 32-bit SP2
          AMD Turion X2 RM-70 2GHz
          4GB RAM



















          [Non-text portions of this message have been removed]
        • Harmon Vinson
          Hello Henrik. Here is a slightly altered version of Stefan s SIN() plotting program. To change the Y-axis edit the CenterX variable (set to 120 in this
          Message 4 of 19 , Jul 6, 2009
          • 0 Attachment
            Hello Henrik.
            Here is a slightly altered version of Stefan's SIN() plotting program.
            To change the Y-axis edit the CenterX variable (set to 120 in this program).
            The starting and ending x values are controlled by the startx and endx variables, here -1*PI and 4*PI.
            The xscale and yscale variables convert from real numbers to pixels.

            '-----code start (watch for line wraps)
            nomainwin
            WindowWidth = 700
            WindowHeight = WindowWidth/2

            open "Graph" for graphics_nf_nsb as #m
            #m "trapclose [quit]"

            CenterX = 120
            CenterY = (WindowHeight-40) / 2

            #m "down"
            #m "color lightgray"
            #m "size 1"
            #m "line 0 "; CenterY; " "; WindowWidth; " "; CenterY
            #m "line "; CenterX; " 0 "; CenterX; " "; WindowHeight

            #m "color red"
            #m "size 2"

            PI = acs(-1)
            startx = -1*PI
            endx = 4*PI
            xinterval = (endx-startx)/1000

            Xscale = WindowWidth / (endx - startx)
            Yscale = CenterY - 10

            for i = startx to endx step xinterval
            x = CenterX + i * Xscale
            y = CenterY - sin(i) * Yscale
            #m "set "; x; " "; y
            next i

            #m "flush"
            wait

            [quit]
            close #m
            end
            ----- code ends

            --- In libertybasic@yahoogroups.com, Henrik <henriknilson@...> wrote:
            > Thanks,Could you please clear it how to move the Y axis from
            > the center to the left side.
          • Henrik
            Thanks Harmon Vinson ... From: Harmon Vinson Subject: [libertybasic] Re: SINE WAVE To: libertybasic@yahoogroups.com Date: Monday, July 6,
            Message 5 of 19 , Jul 6, 2009
            • 0 Attachment
              Thanks Harmon Vinson

              --- On Mon, 7/6/09, Harmon Vinson <harmonv@...> wrote:


              From: Harmon Vinson <harmonv@...>
              Subject: [libertybasic] Re: SINE WAVE
              To: libertybasic@yahoogroups.com
              Date: Monday, July 6, 2009, 12:07 PM








              Hello Henrik.
              Here is a slightly altered version of Stefan's SIN() plotting program.
              To change the Y-axis edit the CenterX variable (set to 120 in this program)..
              The starting and ending x values are controlled by the startx and endx variables, here -1*PI and 4*PI.
              The xscale and yscale variables convert from real numbers to pixels.

              '-----code start (watch for line wraps)
              nomainwin
              WindowWidth = 700
              WindowHeight = WindowWidth/ 2

              open "Graph" for graphics_nf_ nsb as #m
              #m "trapclose [quit]"

              CenterX = 120
              CenterY = (WindowHeight- 40) / 2

              #m "down"
              #m "color lightgray"
              #m "size 1"
              #m "line 0 "; CenterY; " "; WindowWidth; " "; CenterY
              #m "line "; CenterX; " 0 "; CenterX; " "; WindowHeight

              #m "color red"
              #m "size 2"

              PI = acs(-1)
              startx = -1*PI
              endx = 4*PI
              xinterval = (endx-startx) /1000

              Xscale = WindowWidth / (endx - startx)
              Yscale = CenterY - 10

              for i = startx to endx step xinterval
              x = CenterX + i * Xscale
              y = CenterY - sin(i) * Yscale
              #m "set "; x; " "; y
              next i

              #m "flush"
              wait

              [quit]
              close #m
              end
              ----- code ends

              --- In libertybasic@ yahoogroups. com, Henrik <henriknilson@ ...> wrote:
              > Thanks,Could you please clear it how to move the Y axis from
              > the center to the left side.



















              [Non-text portions of this message have been removed]
            • Patric t'Kindt
              This is a nice application for sinusses, Lissajous: nomainwin TextboxColor$ = yellow textbox #Meten.a, 630, 15, 150, 26 textbox #Meten.b, 630, 45, 150, 26
              Message 6 of 19 , Jul 6, 2009
              • 0 Attachment
                This is a nice application for sinusses, Lissajous:

                nomainwin
                TextboxColor$ = "yellow"
                textbox #Meten.a, 630, 15, 150, 26
                textbox #Meten.b, 630, 45, 150, 26
                textbox #Meten.c, 630, 75, 150, 26
                open "Meten" for graphics_fs_nsb as #Meten
                pie = 3.1428
                print #Meten, "trapclose [einde]"
                [begin]
                print #Meten, "fill palegray"
                prompt "Frequentie sin1"; aant1$
                prompt "Frequentie sin2"; aant2$
                prompt "Phaseshift sin2"; fa$
                aant1=val(aant1$)
                aant2=val(aant2$)
                fa=val(fa$)
                faze=(fa/180)*pie
                IF aant1 = 0 AND aant2 = 0 THEN goto [einde]
                gosub [assen]
                print #Meten, "size 1"
                x=0: y= 0
                print #Meten, "place "; 0 ; " "; 120
                      print #Meten, "color darkcyan": print #Meten, "down"
                      FOR n = 0 TO 360
                         x = n*2/3
                         y = SIN(aant1 * (n/180*pie)) * 120 + 120
                       print #Meten, "goto "; x ; " "; y
                      NEXT n
                x=450: y= 200
                print #Meten, "up": print #Meten, "place "; SIN(faze) * 120 + 360 ; " "; 240
                      print #Meten, "color blue": print #Meten, "down"
                      FOR n = 0 TO 360
                         y = n*2/3 +240
                         x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                        print #Meten, "goto "; x ; " "; y
                      NEXT n
                x=450: y=100
                print #Meten, "up": print #Meten, "place "; SIN(faze) * 120 + 360  ; " "; 120
                      print #Meten, "color red": print #Meten, "down"
                      FOR n = 0 TO 360
                        x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                        y = SIN(aant1 * (n/180*pie)) * 120 + 120
                         print #Meten, "goto "; x ; " "; y
                 '******* delay *******
                for del=1 to 2000: next del
                      NEXT n
                print #Meten, "up": print #Meten, "place "; x ; " "; y
                gosub [assen]
                gosub[wacht]
                gosub [begin]
                GOTO [einde]
                [assen]
                print #Meten, "size 2"
                print #Meten, "color black": print #Meten, "down"
                print #Meten, "line "; 0; " "; 240; " "; 480; " "; 240
                print #Meten, "line "; 240; " "; 0; " "; 240; " "; 480
                print #Meten, "line "; 0; " "; 120; " "; 480; " "; 120
                print #Meten, "line "; 360; " "; 0; " "; 360; " "; 480
                print #Meten, "line "; 480; " "; 480; " "; 480; " "; 0
                print #Meten, "line "; 0; " "; 480; " "; 480; " "; 480
                print #Meten.a, "Freq. sin1 = "; aant1
                print #Meten.b, "Freq. sin2 = "; aant2
                print #Meten.c, "Phaseshift = "; fa
                return
                [wacht]
                print #Meten, "setfocus; when characterInput [begin]"
                scan
                goto [wacht]
                [einde]
                beep
                close #Meten
                end




                [Non-text portions of this message have been removed]
              • Henrik
                Thanks to Patric  ... From: Patric t Kindt Subject: Re: [libertybasic] Re: SINE WAVE To: libertybasic@yahoogroups.com Date: Monday,
                Message 7 of 19 , Jul 6, 2009
                • 0 Attachment
                  Thanks to Patric 

                  --- On Mon, 7/6/09, Patric t'Kindt <tkpatric@...> wrote:


                  From: Patric t'Kindt <tkpatric@...>
                  Subject: Re: [libertybasic] Re: SINE WAVE
                  To: libertybasic@yahoogroups.com
                  Date: Monday, July 6, 2009, 5:50 PM








                  This is a nice application for sinusses, Lissajous:

                  nomainwin
                  TextboxColor$ = "yellow"
                  textbox #Meten.a, 630, 15, 150, 26
                  textbox #Meten.b, 630, 45, 150, 26
                  textbox #Meten.c, 630, 75, 150, 26
                  open "Meten" for graphics_fs_ nsb as #Meten
                  pie = 3.1428
                  print #Meten, "trapclose [einde]"
                  [begin]
                  print #Meten, "fill palegray"
                  prompt "Frequentie sin1"; aant1$
                  prompt "Frequentie sin2"; aant2$
                  prompt "Phaseshift sin2"; fa$
                  aant1=val(aant1$ )
                  aant2=val(aant2$ )
                  fa=val(fa$)
                  faze=(fa/180) *pie
                  IF aant1 = 0 AND aant2 = 0 THEN goto [einde]
                  gosub [assen]
                  print #Meten, "size 1"
                  x=0: y= 0
                  print #Meten, "place "; 0 ; " "; 120
                        print #Meten, "color darkcyan": print #Meten, "down"
                        FOR n = 0 TO 360
                           x = n*2/3
                           y = SIN(aant1 * (n/180*pie)) * 120 + 120
                         print #Meten, "goto "; x ; " "; y
                        NEXT n
                  x=450: y= 200
                  print #Meten, "up": print #Meten, "place "; SIN(faze) * 120 + 360 ; " "; 240
                        print #Meten, "color blue": print #Meten, "down"
                        FOR n = 0 TO 360
                           y = n*2/3 +240
                           x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                          print #Meten, "goto "; x ; " "; y
                        NEXT n
                  x=450: y=100
                  print #Meten, "up": print #Meten, "place "; SIN(faze) * 120 + 360  ; " "; 120
                        print #Meten, "color red": print #Meten, "down"
                        FOR n = 0 TO 360
                          x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                          y = SIN(aant1 * (n/180*pie)) * 120 + 120
                           print #Meten, "goto "; x ; " "; y
                   '******* delay *******
                  for del=1 to 2000: next del
                        NEXT n
                  print #Meten, "up": print #Meten, "place "; x ; " "; y
                  gosub [assen]
                  gosub[wacht]
                  gosub [begin]
                  GOTO [einde]
                  [assen]
                  print #Meten, "size 2"
                  print #Meten, "color black": print #Meten, "down"
                  print #Meten, "line "; 0; " "; 240; " "; 480; " "; 240
                  print #Meten, "line "; 240; " "; 0; " "; 240; " "; 480
                  print #Meten, "line "; 0; " "; 120; " "; 480; " "; 120
                  print #Meten, "line "; 360; " "; 0; " "; 360; " "; 480
                  print #Meten, "line "; 480; " "; 480; " "; 480; " "; 0
                  print #Meten, "line "; 0; " "; 480; " "; 480; " "; 480
                  print #Meten.a, "Freq. sin1 = "; aant1
                  print #Meten.b, "Freq. sin2 = "; aant2
                  print #Meten.c, "Phaseshift = "; fa
                  return
                  [wacht]
                  print #Meten, "setfocus; when characterInput [begin]"
                  scan
                  goto [wacht]
                  [einde]
                  beep
                  close #Meten
                  end

                  [Non-text portions of this message have been removed]



















                  [Non-text portions of this message have been removed]
                • Stefan Pendl
                  ... I have changed some things: 1) since you use PLACE there is no need to use UP and DOWN 2) it is not necessary to call the WHEN event in a loop 3) PROMPT
                  Message 8 of 19 , Jul 7, 2009
                  • 0 Attachment
                    >
                    > This is a nice application for sinusses, Lissajous:
                    >

                    I have changed some things:

                    1) since you use PLACE there is no need to use UP and DOWN
                    2) it is not necessary to call the WHEN event in a loop
                    3) PROMPT allows for numerical and string variables
                    4) changed the delay to use a timer, so it is the same on any machine
                    5) added initial values to create a circle
                    6) added graphics memory clean up

                    '---code start (watch for line wraps)
                    nomainwin
                    TextboxColor$ = "yellow"
                    aant1 = 1
                    aant2 = 1
                    fa = 90
                    textbox #Meten.a, 630, 15, 150, 26
                    textbox #Meten.b, 630, 45, 150, 26
                    textbox #Meten.c, 630, 75, 150, 26
                    open "Meten" for graphics_fs_nsb as #Meten
                    pie = asn(1) * 2
                    print #Meten, "trapclose [einde]"
                    print #Meten, "down"
                    [begin]
                    print #Meten, "when characterInput"
                    print #Meten, "delsegment image"
                    print #Meten, "discard"
                    print #Meten, "fill palegray"
                    prompt "Frequentie sin1"; aant1
                    prompt "Frequentie sin2"; aant2
                    IF aant1 = 0 AND aant2 = 0 THEN [einde]
                    prompt "Phaseshift sin2"; fa
                    faze=(fa/180)*pie
                    gosub [assen]
                    print #Meten, "size 1"
                    x=0: y= 0
                    print #Meten, "place "; 0 ; " "; 120
                    print #Meten, "color darkcyan"
                    FOR n = 0 TO 360
                    x = n*2/3
                    y = SIN(aant1 * (n/180*pie)) * 120 + 120
                    print #Meten, "goto "; x ; " "; y
                    NEXT n
                    x=450: y= 200
                    print #Meten, "place "; SIN(faze) * 120 + 360 ; " "; 240
                    print #Meten, "color blue"
                    FOR n = 0 TO 360
                    y = n*2/3 +240
                    x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                    print #Meten, "goto "; x ; " "; y
                    NEXT n
                    x=450: y=100
                    print #Meten, "place "; SIN(faze) * 120 + 360 ; " "; 120
                    print #Meten, "color red"
                    FOR n = 0 TO 360
                    x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                    y = SIN(aant1 * (n/180*pie)) * 120 + 120
                    print #Meten, "goto "; x ; " "; y
                    '******* delay *******
                    timer 15, [stopDelay]
                    wait
                    [stopDelay]
                    timer 0
                    NEXT n
                    print #Meten, "flush image"
                    print #Meten, "when characterInput [begin]"
                    print #Meten, "setfocus"
                    wait
                    [assen]
                    print #Meten, "size 2"
                    print #Meten, "color black"
                    print #Meten, "line "; 0; " "; 240; " "; 480; " "; 240
                    print #Meten, "line "; 240; " "; 0; " "; 240; " "; 480
                    print #Meten, "line "; 0; " "; 120; " "; 480; " "; 120
                    print #Meten, "line "; 360; " "; 0; " "; 360; " "; 480
                    print #Meten, "line "; 480; " "; 480; " "; 480; " "; 0
                    print #Meten, "line "; 0; " "; 480; " "; 480; " "; 480
                    print #Meten.a, "Freq. sin1 = "; aant1
                    print #Meten.b, "Freq. sin2 = "; aant2
                    print #Meten.c, "Phaseshift = "; fa
                    Return
                    [einde]
                    beep
                    close #Meten
                    end
                    '---code end

                    ---
                    Stefan Pendl

                    Liberty BASIC Assist 4.03 ........ http://www.libertybasic.com/assist.html
                    Liberty BASIC 4.04 public beta ... http://www.libertybasic.com/lb404b3setup.exe

                    Windows Vista Home Premium 32-bit SP2
                    AMD Turion X2 RM-70 2GHz
                    4GB RAM
                  • Patric t'Kindt
                    Thanks, its better now, it was a quickie ________________________________ From: Stefan Pendl To: libertybasic@yahoogroups.com Sent:
                    Message 9 of 19 , Jul 7, 2009
                    • 0 Attachment
                      Thanks, its better now, it was a 'quickie'




                      ________________________________
                      From: Stefan Pendl <pendl2megabit@...>
                      To: libertybasic@yahoogroups.com
                      Sent: Tuesday, 7 July, 2009 9:31:24
                      Subject: RE: [libertybasic] SINE WAVE





                      >
                      > This is a nice application for sinusses, Lissajous:
                      >

                      I have changed some things:

                      1) since you use PLACE there is no need to use UP and DOWN
                      2) it is not necessary to call the WHEN event in a loop
                      3) PROMPT allows for numerical and string variables
                      4) changed the delay to use a timer, so it is the same on any machine
                      5) added initial values to create a circle
                      6) added graphics memory clean up

                      '---code start (watch for line wraps)
                      nomainwin
                      TextboxColor$ = "yellow"
                      aant1 = 1
                      aant2 = 1
                      fa = 90
                      textbox #Meten.a, 630, 15, 150, 26
                      textbox #Meten.b, 630, 45, 150, 26
                      textbox #Meten.c, 630, 75, 150, 26
                      open "Meten" for graphics_fs_ nsb as #Meten
                      pie = asn(1) * 2
                      print #Meten, "trapclose [einde]"
                      print #Meten, "down"
                      [begin]
                      print #Meten, "when characterInput"
                      print #Meten, "delsegment image"
                      print #Meten, "discard"
                      print #Meten, "fill palegray"
                      prompt "Frequentie sin1"; aant1
                      prompt "Frequentie sin2"; aant2
                      IF aant1 = 0 AND aant2 = 0 THEN [einde]
                      prompt "Phaseshift sin2"; fa
                      faze=(fa/180) *pie
                      gosub [assen]
                      print #Meten, "size 1"
                      x=0: y= 0
                      print #Meten, "place "; 0 ; " "; 120
                      print #Meten, "color darkcyan"
                      FOR n = 0 TO 360
                      x = n*2/3
                      y = SIN(aant1 * (n/180*pie)) * 120 + 120
                      print #Meten, "goto "; x ; " "; y
                      NEXT n
                      x=450: y= 200
                      print #Meten, "place "; SIN(faze) * 120 + 360 ; " "; 240
                      print #Meten, "color blue"
                      FOR n = 0 TO 360
                      y = n*2/3 +240
                      x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                      print #Meten, "goto "; x ; " "; y
                      NEXT n
                      x=450: y=100
                      print #Meten, "place "; SIN(faze) * 120 + 360 ; " "; 120
                      print #Meten, "color red"
                      FOR n = 0 TO 360
                      x = SIN(aant2 * (n/180*pie) + faze) * 120 + 360
                      y = SIN(aant1 * (n/180*pie)) * 120 + 120
                      print #Meten, "goto "; x ; " "; y
                      '******* delay *******
                      timer 15, [stopDelay]
                      wait
                      [stopDelay]
                      timer 0
                      NEXT n
                      print #Meten, "flush image"
                      print #Meten, "when characterInput [begin]"
                      print #Meten, "setfocus"
                      wait
                      [assen]
                      print #Meten, "size 2"
                      print #Meten, "color black"
                      print #Meten, "line "; 0; " "; 240; " "; 480; " "; 240
                      print #Meten, "line "; 240; " "; 0; " "; 240; " "; 480
                      print #Meten, "line "; 0; " "; 120; " "; 480; " "; 120
                      print #Meten, "line "; 360; " "; 0; " "; 360; " "; 480
                      print #Meten, "line "; 480; " "; 480; " "; 480; " "; 0
                      print #Meten, "line "; 0; " "; 480; " "; 480; " "; 480
                      print #Meten.a, "Freq. sin1 = "; aant1
                      print #Meten.b, "Freq. sin2 = "; aant2
                      print #Meten.c, "Phaseshift = "; fa
                      Return
                      [einde]
                      beep
                      close #Meten
                      end
                      '---code end

                      ---
                      Stefan Pendl

                      Liberty BASIC Assist 4.03 ........ http://www.libertyb asic.com/ assist.html
                      Liberty BASIC 4.04 public beta ... http://www.libertyb asic.com/ lb404b3setup. exe

                      Windows Vista Home Premium 32-bit SP2
                      AMD Turion X2 RM-70 2GHz
                      4GB RAM







                      [Non-text portions of this message have been removed]
                    Your message has been successfully submitted and would be delivered to recipients shortly.