AURELSOFT Friday, 2017-11-24, 4:05 PM
Welcome Guest | RSS
Site menu

Statistics

Total online: 1
Guests: 1
Users: 0

Home » 2015 » April » 14 » FORUM
0:22 AM
FORUM
FORUM IS HERE: http://aurelsoft.ucoz.com/forum/
Views: 348 | Added by: Zlatko | Rating: 0.0/0
Total comments: 3
0
3  
sdgfgdfgdfgfgdfgdfgddfgdfgdfgdfg
fdgdfgdfgdfg
gfdgfgd
fgdfgdf
dfgdfg
dfgdfgdf
gdfgdfgfdgdfg
ffgdfgdfgdfgdfgdgfgdffffffffgdfgdfgdfgdfgdfgd
fgdfgdfggfhghfghgfh
hfgh

0
2  
loat lenght,angle,x,y,diff,adiff
float x2,y2,counter,a,b,pi,r, px,py,n
wcolor 0,0,0
pi=3.14596
lenght = 300
angle = 3.44
x = 400
y = 300
x2 = 55
diff = 1.14
adiff = 0.8
y2 = y
frontpen 0,120,80
'line x y x2 y2
lenght = lenght - diff
counter = 0

'->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

while counter < 700     
if counter < 80 then frontpen 0,170,

0
1  
toy42 console version with math functions
hfghfhfghfghfg


Code
'alienPipes - toy524
float lenght,angle,x,y,diff,adiff
float x2,y2,counter,a,b,pi,r, px,py,n
wcolor 0,0,0
pi=3.14596
lenght = 300
angle = 3.44
x = 400
y = 300
x2 = 55
diff = 1.14
adiff = 0.8
y2 = y
frontpen 0,120,80
'line x y x2 y2
lenght = lenght - diff
counter = 0
'->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
while counter < 700     
if counter < 80 then frontpen 0,170,180 end if
if counter > 80 then frontpen 30,80,150 end if
      
     angle = angle + adiff
     lenght = lenght - diff
     a = int(sin(angle*pi) * lenght)
     b = int(atn(angle*pi/2) * lenght)
     x2 = x + b
     y2 = y + a
     r=(counter/pi)/3
     circle x2,y2,r
          
     counter=counter + 1
wend

Name *:
Email *:
Code *:
Log In

Search

Calendar
«  April 2015  »
SuMoTuWeThFrSa
   1234
567891011
12131415161718
19202122232425
2627282930

Entries archive

Site friends
  • Official Blog
  • uCoz Community
  • FAQ
  • Textbook

  • Copyright MyCorp © 2017Free web hostinguCoz