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