!debug.on


gr.open 255, 0, 0, 0
gr.Orientation 0
gr.Screen mx, my
gr.scale (mx /800), (my/480)
mxt = mx / 6
myt = my / 6
gr.Color 255, 0, 0, 0, 0
gr.color 255,255,255,255,0

gosub LoadHatandRabbit
!debug.echo.on

gr.poly obj_ptr,TmpList,0,0
gr.render
pause 2000
do 
		
	j=0
	do 	
		for j=0 to 1 step 0.01
			for i= 1 to 150
				list.get Hat,i,x
				list.get Rabbit,i,y
				list.replace TmpList,i,(1-j)*x + j*y			
			next
			gr.render
		next
	gr.render
	pause 2000
	
	for j=1 to 0 step -0.01
		for i= 1 to 150
			list.get Hat,i,x
			list.get Rabbit,i,y
			list.replace TmpList,i,(1-j)*x + j*y
		next
		gr.render
	next
	gr.render
	pause 4000

until 0


!OnError:
gr.Close
End
 
LoadHatandRabbit:

list.create n,Rabbit
list.add Rabbit,515, 270,520, 257,517, 241,503, 230,494, 230,489, 247,490, 263,505, 270,518, 270,571, 325,584, 337,601, 324,586, 338,577, 356
list.add Rabbit,591, 353,614, 322,612, 293,612, 279,592, 212,550, 163,554, 136,553, 69,554, 44,543, 43,521, 83,497, 145,472, 141
list.add Rabbit,445, 83,397, 53,383, 51,372, 73,383, 135,407, 176,419, 191,394, 161,382, 132,376, 114,316, 108,243, 156
list.add Rabbit,196, 192,182, 241,130, 254,89, 209,118, 124,189, 118,199, 157,193, 194,182, 231,191, 297,222, 349,243, 383
list.add Rabbit,244, 391,261, 406,303, 405,330, 391,295, 360,376, 425,404, 431,445, 431,462, 420,443, 397,417, 381,461, 407
list.add Rabbit,499, 409,516, 405,514, 382,511, 367,464, 349,427, 305,410, 271,447, 326,507, 367,532, 373,574, 357,586, 338

list.create n,Hat
 
list.add Hat,515, 198,518, 243,527, 298,531, 354,528, 377,509, 402,480, 423,429, 434,363, 436,321, 428,284, 408,264, 383,263, 356,267, 289,273, 242
list.add Hat,284, 254,312, 271,354, 282,406, 286,469, 270,509, 252,517, 238,516, 201,548, 185,577, 174,606, 154,600, 136
list.add Hat,519, 109,443, 91,367, 69,303, 71,239, 89,191, 135,192, 189,213, 216,286, 235,404, 222,491, 199,470, 168,512, 152
list.add Hat,518, 133,452, 112,375, 104,313, 107,273, 141,288, 178,352, 191,431, 180,469, 169,489, 195,528, 187,555, 181
list.add Hat,514, 193,565, 177,607, 153,593, 132,534, 115,453, 93,369, 72,314, 68,287, 71,230, 93,197, 128,188, 176
list.add Hat,215, 217,292, 239,385, 226,469, 207,515, 197,555, 185,517, 196,517, 249,525, 328,519, 259,519, 201
 

list.create n,TmpList
List.add.list TmpList,Hat

return