Discussion forum about PANORAMIC language

Mac, Windows & Android application development with PANORAMIC language
 
HomeFAQSearchRegisterMemberlistUsergroupsLog in
Latest topics
» Hello world.
by Mon Jun 19, 2017 1:37 am

» Biomorphes de PICKOVER
by Sun Jun 18, 2017 2:33 am

» In less than 10 lines of code
by Fri Jun 16, 2017 5:03 am

» Effect Dopler
by Fri Jun 16, 2017 3:29 am

» SuperEllipse
by Wed Jun 14, 2017 4:01 am

» Plants
by Wed Jun 14, 2017 3:38 am

» Mira's attractor
by Wed Jun 14, 2017 3:30 am

» Triangle of Sierpinski
by Wed Jun 14, 2017 3:22 am

» Esthétique polaire
by Wed Jun 14, 2017 3:16 am

» Butterfly effect : Lorenz equations
by Wed Jun 14, 2017 3:08 am

» Collision detection
by Tue Jun 13, 2017 5:09 am

» The Bees Laline Paull Epub Books
by Mon Oct 10, 2016 8:58 pm

» PANORAMIC for Mac OSX 10 is available
by Tue Aug 09, 2016 6:08 pm

» ide
by Sat Jul 16, 2016 12:27 am

» Can I change the program icon/logo in my application ?
by Thu Jul 07, 2016 3:32 am

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search

Share | 
 

 Fractal Curve

View previous topic View next topic Go down 
AuthorMessage
papydall

avatar

Number of posts : 39
Age : 66
Localisation : TUNISIA
Registration date : 2013-03-16

PostSubject: Fractal Curve   Sat Mar 16, 2013 2:25 am

Hi everyone.

This short code draws a fractal curve.

Code:
' ******************************************************************************
'
'                  MY FRACTAL
'                  BY PAPYDALL
'
' ******************************************************************************
DIM point(6,2),rndpoint,tempo,i,j,x,y
point(1,1) = 0    : point(1,2) = 350 : point(2,1) = 250  : point(2,2) = 0
point(3,1) = 750  : point(3,2) = 0  : point(4,1) = 1000 : point(4,2) = 350
point(5,1) = 750  : point(5,2) = 700 : point(6,1) = 250  : point(6,2) = 700
width 0,1000 : height 0,750 : color 0,0,0,0 : font_color 0,255,255,0
caption 0,"PLEASE WAIT .....      <CLICK> TO STOP"
2d_clear : font_bold 0 : font_size 0,20
while scancode = 0
 for i = 1000 to -500 step -1
    print_locate i,10  : print "========== MY FRACTAL =========="
    print_locate i,670 : print "========== BY PAPYDALL ========="
    for j = 1 to 10
      2d_pen_color x/5 + j*10,abs(i-150)/6 + j*10,y/5 + j*10                                          : ' commmentaires
      rndpoint = int(6*rnd(1)+1)
      x = (x + point(rndpoint,1))/2.9 : y = (y + point(rndpoint,2))/2.6
      2d_point x  + 200 ,y  + 120
    next j
    if scancode  <> 0 then exit_for
next i
end_while
caption 0," program stopped by user"
end
Back to top Go down
View user profile
 
Fractal Curve
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Cool Mandelbrot fractal video
» Protein Skimmer Bubble Magus Curve 7 bekas 99% (Sold)
» VoIP SIP softphone for Blackberry, works over WIFI and 3G- $
» Protein Skimmer Bubble Magus Seperti Baru (Sold)
» Jual Skimmer Bubble Magus BNIB (brand new in box) punya customer..(Sold)

Permissions in this forum:You cannot reply to topics in this forum
Discussion forum about PANORAMIC language :: Panoramic for Windows :: Source code (snippets)-
Jump to: