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 | 
 

  Effect Dopler

View previous topic View next topic Go down 
AuthorMessage
papydall

avatar

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

PostSubject: Effect Dopler   Fri Jun 16, 2017 3:29 am

Code:

rem ============================================================================
rem        Effect Dopler
rem          By Papydall
rem ============================================================================

dim x,y,a,b,n
width 0,screen_x/2 : height 0,width(0)
top 0,(screen_y - height(0))/2 : left 0, (screen_x - width(0))/2
x = 200 : y = height(0)/2
picture 10 : width 10 ,width(0) : height 10,height(0): hide 10 : 2d_target_is 10
font_bold 10 : font_color 10,255,0,0 : font_size 10,20 : font_name 10,"comic sans ms"
color 10,0,0,0
print_target_is 10
print_locate 50,50 : print "EFFECT DOPLER ......... <CLICK> TO STOP"
image 20
rem ============================================================================
repeat
  for b = 1 to 10
      x = x + 1 : a = .5
      for n = 1 to 255 step 5
          a = a * -1 + .5
          2d_pen_color 255-a*n,255-a*n,255-a*n : 2d_fill_color 255-a*n,255-a*n,255-a*n
          2d_circle x + (n-b)*.5-255, y, 255-(n-b)
      next n
      copy_image()
  next b
  if x > screen_x -350 then x = 200
until scancode <> 0
terminate
rem ============================================================================
SUB Copy_Image()
    2d_image_copy 20,left(10),top(10),width(10),height(10)
    2d_target_is 0: 2d_image_paste 20,left(10),top(10)
    2d_target_is 10
END_SUB
rem ============================================================================
Back to top Go down
View user profile
 
Effect Dopler
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» The Bystander effect
» C# Matrix Effect
» Super Mario Mushroom Kingdom Warp Pipe Game
» Fioricet and Codeine
» Strange side effect?

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: