SIN & COS

Geef hier je beste Liberty BASIC tips door. (Hier geen hulp vragen)

Moderators: anthonio, Abcott

SIN & COS

Berichtdoor bluatigro » ma jan 04, 2010 4:15 pm

met sinus en cosinus alleen
kan je al mooie plaatjes krijgen
verander A,B,C,D,E in andere
getallen en vind maar uit
Code: Selecteer alles
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
sx = WindowWidth
sy = WindowHeight
''==============================================
''expeermiteer maar met deze 5 getallen
a = 2
b = 3
c = 5
d = 7
e = 11
''==============================================
pi = atn( 1 ) * 4
nomainwin
open " " for graphics as #m
  #m , "trapclose [quit]"
  #m , "fill black"
  for i = 0 to pi * 2 step pi / 200
    #m , "down"
    #m , "color " ; sin( i * e ) * 127 + 128 _
    ; " " ; sin( i * e - 2 / 3 * pi ) * 127 + 128 _
    ; " " ; sin( i * e + 2 / 4 * pi ) * 127 + 128
    #m , "line " ; sin( i * a ) * sx / 4 + sx / 2_
    ; " " ; cos( i * b ) * sy / 4 + sy / 2 _
    ; " " ; sin( i * c ) * sx / 8 + sin( i * a ) * sx / 4 + sx / 2 _
    ; " " ; cos( i * d ) * sy / 8 + cos( i * b ) * sy / 4 + sy / 2
    #m , "up"
  next i
wait
[quit]
  close #m
end

de mooiste resultaten krijg je met
5 verschillende priemgetallen
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Re: SIN & COS

Berichtdoor Gordon » za jan 16, 2010 9:55 pm

Knap werk!

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: SIN & COS

Berichtdoor tkpatric » zo jan 17, 2010 9:55 am

Wreed wijs! Ik heb dat altijd plezant gevonden, zulke grafische programmaatjes! Nu nog een input-procedure....
tkpatric
 
Berichten: 22
Geregistreerd: vr dec 29, 2006 8:52 pm

Re: SIN & COS

Berichtdoor bluatigro » di feb 23, 2010 12:55 pm

update :
nu met input routines

Code: Selecteer alles
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
sx = WindowWidth
sy = WindowHeight
''==============================================
prompt "Speed X 1 =" ; qa$
a = int( val( qa$ ) )
prompt "Speed Y 1 =" ; qb$
b = int( val( qb$ ) )
prompt "Speed X 2 =" ; qc$
c = int( val( qc$ ) )
prompt "Speed Y 2 =" ; qd$
d = int( val( qd$ ) )
prompt "Speed Color =" ; qe$
e = int( val( qe$ ) )
''==============================================
pi = atn( 1 ) * 4
wind$ = " | X1 = " + str$( a ) _
      + " | Y1 = " + str$( b ) _
      + " | X2 = " + str$( c ) _
      + " | Y2 = " + str$( d ) _
      + " | Color = " + str$( e ) + " |"
nomainwin
open "Speed" + wind$ for graphics as #m
  #m , "trapclose [quit]"
  #m , "fill black"
  for i = 0 to pi * 2 step pi / 200
    #m , "down"
    #m , "color " ; sin( i * e ) * 127 + 128 _
    ; " " ; sin( i * e - 2 / 3 * pi ) * 127 + 128 _
    ; " " ; sin( i * e + 2 / 4 * pi ) * 127 + 128
    #m , "line " ; sin( i * a ) * sx / 4 + sx / 2_
    ; " " ; cos( i * b ) * sy / 4 + sy / 2 _
    ; " " ; sin( i * c ) * sx / 4 + sin( i * a ) * sx / 4 + sx / 2 _
    ; " " ; cos( i * d ) * sy / 4 + cos( i * b ) * sy / 4 + sy / 2
    #m , "up"
  next i
  #m , "flush"
wait
[quit]
  close #m
end
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm


Keer terug naar Tips en informatie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron