hearty

[stef]

hi!

In contrast to "quines" thi is absolutely useful.
But only in that case that you need to draw a heart for your sweetheart and don't know how to do.


greetings
stef

PlayBASIC Code: [Select]

; PROJECT : hearty
; AUTHOR  : stef
; CREATED : 30.11.2005
; EDITED  : 06.12.2005
; ---------------------------------------------------------------------
xm#=400 
ym#=320 
radius#=300 
steps#=30  

a#=360
   
Do 
  x1#=xm#+Cos(a#+90)*radius# 
  x2#=xm#-Cos(a#+90)*radius# 
  y#=ym#+(Sin(a#) + Cos(a#)) *radius#/1.5
  CircleC x1#,y#,10,1,RGB(250,0,0) 
  CircleC x2#,y#,10,1,RGB(250,0,0)
     a#=a#-PI#/steps# 

   If a# < 180 Then Continue 

   
Sync
Loop
WaitKey   

[empty]

Well, the next Valentine's Day can come. :)