papydall
Number of posts : 39 Age : 73 Localisation : TUNISIA Registration date : 2013-03-16
| Subject: 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 ============================================================================
| |
|