[Pharo] Personal fitness tracker web app.
Added exercises.
src/MyFitnessTracker/MFTExercise.class.st
@@ -42,51 +42,100 @@
42
42
#category : #MyFitnessTracker
43
43
}
44
44
45
Removed:
{ #category : #accessing }
45
Added:
{ #category : #exercise }
46
46
MFTExercise class >> cableRow [
47
47
48
48
^ self new
49
Removed:
name: 'cable row';
50
Removed:
primaryMuscle: MFTMuscle back;
51
Removed:
secondaryMuscles: MFTMuscle biceps;
52
Removed:
yourself
49
Added:
name: 'cable row';
50
Added:
primaryMuscle: MFTMuscleGroup back;
51
Added:
secondaryMuscles: MFTMuscle biceps;
52
Added:
yourself
53
53
]
54
54
55
Removed:
{ #category : #accessing }
55
Added:
{ #category : #'as yet unclassified' }
56
Added:
MFTExercise class >> deadlift [
57
Added:
58
Added:
^ self new
59
Added:
name: 'deadlift';
60
Added:
primaryMuscle: MFTMuscleGroup leg;
61
Added:
secondaryMuscles: {
62
Added:
MFTMuscleGroup abdominal.
63
Added:
MFTMuscleGroup back };
64
Added:
yourself
65
Added:
]
66
Added:
67
Added:
{ #category : #exercise }
56
68
MFTExercise class >> declineBenchPress [
57
69
58
70
^ self new
59
Removed:
name: 'decline bench press';
60
Removed:
primaryMuscle: MFTMuscle pectoral;
61
Removed:
secondaryMuscles: MFTMuscle triceps;
62
Removed:
yourself
71
Added:
name: 'decline bench press';
72
Added:
primaryMuscle: MFTMuscleGroup chest;
73
Added:
secondaryMuscles: MFTMuscle triceps;
74
Added:
yourself
63
75
]
64
76
65
Removed:
{ #category : #accessing }
66
Removed:
MFTExercise class >> name: aString [
77
Added:
{ #category : #'as yet unclassified' }
78
Added:
MFTExercise class >> gobletSquat [
79
Added:
67
80
^ self new
68
Removed:
name: aString;
69
Removed:
yourself
81
Added:
name: 'goblet squat';
82
Added:
primaryMuscle: MFTMuscleGroup leg;
83
Added:
secondaryMuscles: {
84
Added:
MFTMuscleGroup abdominal.
85
Added:
MFTMuscleGroup back };
86
Added:
yourself
70
87
]
71
88
72
Removed:
{ #category : #accessing }
73
Removed:
MFTExercise class >> name: aString sets: aSetList [
89
Added:
{ #category : #'as yet unclassified' }
90
Added:
MFTExercise class >> legCurl [
91
Added:
74
92
^ self new
75
Removed:
name: aString;
76
Removed:
sets: aSetList;
77
Removed:
yourself
93
Added:
name: 'leg curl';
94
Added:
primaryMuscle: MFTMuscle hamstring;
95
Added:
yourself
78
96
]
79
97
80
Removed:
{ #category : #accessing }
98
Added:
{ #category : #'as yet unclassified' }
99
Added:
MFTExercise class >> legExtension [
100
Added:
101
Added:
^ self new
102
Added:
name: 'leg extension';
103
Added:
primaryMuscle: MFTMuscleGroup leg;
104
Added:
yourself
105
Added:
]
106
Added:
107
Added:
{ #category : #exercise }
81
108
MFTExercise class >> shoulderPressDumbell [
82
109
83
110
^ self new
84
Removed:
name: 'shoulder press (dumbell)';
85
Removed:
primaryMuscle: MFTMuscle deltoidAnterior;
86
Removed:
secondaryMuscles: { MFTMuscle deltoidLateral. MFTMuscle deltoidPosterior };
87
Removed:
yourself
111
Added:
name: 'shoulder press (dumbell)';
112
Added:
primaryMuscle: MFTMuscle deltoidAnterior;
113
Added:
secondaryMuscles: MFTMuscle deltoidMedial;
114
Added:
yourself
88
115
]
89
116
117
Added:
{ #category : #'as yet unclassified' }
118
Added:
MFTExercise class >> squat [
119
Added:
120
Added:
^ self new
121
Added:
name: 'squat';
122
Added:
primaryMuscle: MFTMuscleGroup leg;
123
Added:
secondaryMuscles: {
124
Added:
MFTMuscleGroup abdominal.
125
Added:
MFTMuscleGroup back };
126
Added:
yourself
127
Added:
]
128
Added:
129
Added:
{ #category : #initialization }
130
Added:
MFTExercise >> initialize [
131
Added:
132
Added:
super initialize.
133
Added:
name := String new.
134
Added:
sets := OrderedCollection new.
135
Added:
primaryGroup := MFTMuscleGroup new.
136
Added:
secondaryGroup := OrderedCollection new
137
Added:
]
138
Added:
90
139
{ #category : #accessing }
91
140
MFTExercise >> name [
92
141
@@ -111,6 +160,12 @@
111
160
primaryGroup := anObject
112
161
]
113
162
163
Added:
{ #category : #'as yet unclassified' }
164
Added:
MFTExercise >> repsBySet [
165
Added:
166
Added:
^ sets collect: #reps
167
Added:
]
168
Added:
114
169
{ #category : #accessing }
115
170
MFTExercise >> secondaryMuscles [
116
171
@@ -130,7 +185,7 @@
130
185
]
131
186
132
187
{ #category : #accessing }
133
Removed:
MFTExercise >> sets: anObject [
188
Added:
MFTExercise >> sets: anOrderedCollection [
134
189
135
Removed:
sets := anObject
190
Added:
sets := anOrderedCollection
136
191
]