diff --git a/collects/drscheme/private/stick-figures.ss b/collects/drscheme/private/stick-figures.ss index 72d3cde29a..2495627291 100644 --- a/collects/drscheme/private/stick-figures.ss +++ b/collects/drscheme/private/stick-figures.ss @@ -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)