|
Post by tenochtitlanuk on Dec 20, 2019 18:18:19 GMT -5
Had fun creating this gif animation- select random bits of the plus-cat image to modify the minus-cat image- then reverse. Save the string of intermediate stages and turn into an animated gif with GIMP or imageMagick. To run it you need the two gif images below- turn them into bmp files first in your favourite painting software. Made me feel in a more cheerful, Christmassy mood in a world of such crazy politics.
nomainwin
WindowWidth = 500 WindowHeight = 700
open "Miaow" for graphics_nsb as #wg
#wg "trapclose quit"
loadbmp "scr1", "minusCat1.bmp" #wg "drawbmp scr1 10 10 ; flush" loadbmp "scr2", "plusCat1.bmp" #wg "drawbmp scr2 10 360 ; flush" #wg "down"
s =0
for i =0 to 20000 sx =int( 200 +300 *rnd( 1)) sy =int( 50 +250 *rnd( 1)) #wg "getbmp scr3 "; sx; " "; sy +350; " 3 3" #wg "drawbmp scr3 "; sx; " "; sy '#wg "flush" if i mod 500 =0 then #wg "getbmp scrgrab 10 10 450 280" bmpsave "scrgrab", "bmp/s" +right$( "000" +str$( s), 3) +".bmp" s =s +1 end if next i
#wg "drawbmp scr1 10 360 ; flush"
for i =0 to 20000 sx =int( 200 +300 *rnd( 1)) sy =int( 50 +250 *rnd( 1)) #wg "getbmp scr3 "; sx; " "; sy +350; " 3 3" #wg "drawbmp scr3 "; sx; " "; sy '#wg "flush" if i mod 500 =0 then #wg "getbmp scrgrab 10 10 450 280" bmpsave "scrgrab", "bmp/s" +right$( "000" +str$( s), 3) +".bmp" s =s +1 end if next i
wait
sub quit h$ close #wg end end sub
|
|
|
Post by sarossell on Dec 21, 2019 0:31:34 GMT -5
That's pretty slick!
|
|