RoboSavvy Forum Robosavvy Forum: The largest online community of Humanoid Robot Builders 2006-11-04T14:08:43+01:00 http://forum.robosavvy.com/feed.php?f=4&t=724 2006-11-04T14:08:43+01:00 2006-11-04T14:08:43+01:00 http://forum.robosavvy.com/viewtopic.php?t=724&p=4530#p4530 <![CDATA[Some cheeky moves!]]> http://www.youtube.com/watch?v=up4XlwvDzos

Statistics: Posted by DirtyRoboto — Sat Nov 04, 2006 2:08 pm

]]> 2006-11-01T19:35:37+01:00 2006-11-01T19:35:37+01:00 http://forum.robosavvy.com/viewtopic.php?t=724&p=4472#p4472 <![CDATA[Some cheeky moves!]]> You will need to add the following to get it to work, place this with the other DIM commands

DIM ld AS BYTE
DIM le AS BYTE

Statistics: Posted by DirtyRoboto — Wed Nov 01, 2006 7:35 pm

]]> 2006-10-31T23:51:37+01:00 2006-10-31T23:51:37+01:00 http://forum.robosavvy.com/viewtopic.php?t=724&p=4464#p4464 <![CDATA[Some cheeky moves!]]> SPEED 5
MOVE G6A,101, 138, 31, 144, 97, 100
MOVE G6B,100, 30, 80, 100, 100, 100
MOVE G6C,100, 30, 80, 100, 100, 100
MOVE G6D,102, 140, 31, 144, 99, 100
MOVE G6A, 53, 138, 31, 144, 97, 100
MOVE G6D, 53, 140, 31, 144, 99, 100
MOVE G6D, 53, 75, 112, 135, 99, 100
MOVE G6A, 53, 75, 111, 135, 97, 100
MOVE G6A,101, 75, 111, 135, 97, 100
MOVE G6D,100, 75, 112, 135, 99, 100
WAIT
GOSUB standard_pose
RETURN




led_toggle:

SPEED 15
' pre pose
MOVE G6B,100, 25, 178, 100, 100, 100
MOVE G6C,100, 30, 186, 100, 100, 100

TEMPO 255
FOR ld = 1 TO 20
' jiggle 1
MUSIC "g"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 2
OUT 52,0
MUSIC "c"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
' jiggle 3
MUSIC "e"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 4
OUT 52,0
MUSIC "d"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
NEXT ld
WAIT
GOSUB standard_pose
RETURN




led_toggle2:
SPEED 05

' bend down
MOVE G6A,102, 88, 100, 129, 98, 100
MOVE G6D,103, 88, 98, 130, 99, 100
MOVE G6B,178, 13, 54, 100, 100, 100
MOVE G6C,180, 30, 44, 100, 100, 100
' straighten up
MOVE G6A,100, 53, 181, 74, 101, 100
MOVE G6D,103, 57, 177, 77, 97, 100

SPEED 10
TEMPO 255
MOVE G6A,102, 88, 100, 129, 98, 100
MOVE G6D,103, 88, 98, 130, 99, 100

FOR le = 1 TO 2

FOR ld = 1 TO 20
' jiggle 1
MUSIC "g"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 2
OUT 52,0
MUSIC "c"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
' jiggle 3
MUSIC "e"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 4
OUT 52,0
MUSIC "d"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
NEXT ld
MOVE G6A,102, 88, 100, 129, 98, 100
MOVE G6D,103, 88, 98, 130, 99, 100

NEXT le
MOVE G6A,100, 53, 181, 74, 101, 100
MOVE G6D,103, 57, 177, 77, 97, 100
WAIT
GOSUB standard_pose
RETURN

Statistics: Posted by DirtyRoboto — Tue Oct 31, 2006 11:51 pm

]]>