suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gave the waiting man some shoulders

Browse Source 
svn: r6820
This commit is contained in:
Robby Findler 2007-07-04 18:01:22 +00:00
parent addb3306bd
commit b6845746f8
1 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
collects/drscheme/private/stick-figures.ss
View File

@ -12,25 +12,29 @@
(define line-size 2)
(define waiting-points
'((head 47 -4)
(neck 40 14)
(shoulders 38 29)
(left-elbow 6 65)
(right-elbow 63 66)
(left-hand 59 73)
(right-hand 58 18)
(waist 35 77)
(left-knee 16 116)
(right-knee 55 113)
(left-ankle 16 155)
(right-ankle 61 154)
(left-toe -3 152)
(right-toe 80 145)))
'((head 55 0)
(neck 43 18)
(shoulders 37 33)
(left-shoulder 23 34)
(right-shoulder 50 37)
(left-elbow 8 74)
(right-elbow 66 69)
(left-hand 60 78)
(right-hand 68 18)
(waist 37 87)
(left-knee 19 122)
(right-knee 57 117)
(left-ankle 19 154)
(right-ankle 62 155)
(left-toe 0 154)
(right-toe 83 146)))
(define running-points
'((head 130 18)
(neck 114 33)
(shoulders 105 44)
(left-shoulder 105 44)
(right-shoulder 105 44)
(left-elbow 71 28)
(right-elbow 115 67)
(left-hand 50 54)
@ -183,8 +187,10 @@
(define (draw-points points dc factor dx dy)
(connect 'neck 'shoulders points dc factor dx dy)
(connect 'shoulders 'left-elbow points dc factor dx dy)
(connect 'shoulders 'right-elbow points dc factor dx dy)
(connect 'shoulders 'left-shoulder points dc factor dx dy)
(connect 'left-shoulder 'left-elbow points dc factor dx dy)
(connect 'shoulders 'right-shoulder points dc factor dx dy)
(connect 'right-shoulder 'right-elbow points dc factor dx dy)
(connect 'left-elbow 'left-hand points dc factor dx dy)
(connect 'right-elbow 'right-hand points dc factor dx dy)
(connect 'shoulders 'waist points dc factor dx dy)