by Robotmania » Sun Aug 06, 2006 12:42 pm
            
            
                    
                by Robotmania
Sun Aug 06, 2006 12:42 pm
            
            
            a little left to right touch the floor move 
copy and paste 
then gosub toes
'===touches floor left&right=====
toes:
SPEED 6
'PWM blue,no
'PWM green,yes
FOR A = 0 TO 3
'PWM red,no
'PWM green,yes
MOVE G6B,101, 101,  98, 100, 100, 100
MOVE G6C,101, 101,  98, 100, 100, 100
MOVE G6A,116, 166,  21, 127, 132, 100
MOVE G6D, 62,  79, 137,  99,  87, 100
    MOVE G6A, 100,  76, 145,  93, 100, 100 
	MOVE G6D, 100,  76, 145,  93, 100, 100  
	MOVE G6B, 100,  30,  80, 100, 100, 100
	MOVE G6C, 100,  30,  80, 100, 100, 100
DELAY 1000
'PWM green,no
'PWM red,yes
MOVE G6B,101, 101,  98, 100, 100, 100
MOVE G6C,101, 101,  98, 100, 100, 100
MOVE G6A, 61,  96, 132,  94,  87, 100
MOVE G6D,115, 169,  21, 133, 130, 100
    MOVE G6A, 100,  76, 145,  93, 100, 100 
	MOVE G6D, 100,  76, 145,  93, 100, 100  
	MOVE G6B, 100,  30,  80, 100, 100, 100
	MOVE G6C, 100,  30,  80, 100, 100, 100
DELAY 1000
NEXT A
'PWM green,no
'PWM blue,yes
'PWM red,no
'C10 = 1
GOSUB standard_pose
GOTO main_exit
RETURN
'===========================
            a little left to right touch the floor move 
copy and paste 
then gosub toes
'===touches floor left&right=====
toes:
SPEED 6
'PWM blue,no
'PWM green,yes
FOR A = 0 TO 3
'PWM red,no
'PWM green,yes
MOVE G6B,101, 101,  98, 100, 100, 100
MOVE G6C,101, 101,  98, 100, 100, 100
MOVE G6A,116, 166,  21, 127, 132, 100
MOVE G6D, 62,  79, 137,  99,  87, 100
    MOVE G6A, 100,  76, 145,  93, 100, 100 
	MOVE G6D, 100,  76, 145,  93, 100, 100  
	MOVE G6B, 100,  30,  80, 100, 100, 100
	MOVE G6C, 100,  30,  80, 100, 100, 100
DELAY 1000
'PWM green,no
'PWM red,yes
MOVE G6B,101, 101,  98, 100, 100, 100
MOVE G6C,101, 101,  98, 100, 100, 100
MOVE G6A, 61,  96, 132,  94,  87, 100
MOVE G6D,115, 169,  21, 133, 130, 100
    MOVE G6A, 100,  76, 145,  93, 100, 100 
	MOVE G6D, 100,  76, 145,  93, 100, 100  
	MOVE G6B, 100,  30,  80, 100, 100, 100
	MOVE G6C, 100,  30,  80, 100, 100, 100
DELAY 1000
NEXT A
'PWM green,no
'PWM blue,yes
'PWM red,no
'C10 = 1
GOSUB standard_pose
GOTO main_exit
RETURN
'===========================