FrACT10/FractControllerBalm.j at main · michaelbach/FrACT10 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
/*
 This file is part of FrACT10, a vision test battery.
 © 2021 Michael Bach, bach@uni-freiburg.de, <https://michaelbach.de>

 2025-03-11 created

 This is the superclass for the 3 BaLM modules
 */


@import "FractController.j"


@implementation FractControllerBalm: FractController {
    int savedauditoryFeedback4trialIndex;
    int extentInPix;
}


- (void) modifyThresholderStimulus {
}
- (float) stimThresholderunitsFromDeviceunits: (float) ntve {
    return ntve;
}
- (float) stimDeviceunitsFromThresholderunits: (float) generic {
    return generic;
}
- (CPString) composeTrialInfoString {
    let s = iTrial + "/" + nTrials + " " + [alternativesGenerator currentAlternative];
    return s;
}


- (void) runStart { //console.info("FractControllerBalm>runStart");
    [gAppController setCurrentTestResultUnit: "hitRateInPercent"];
    [Settings setAcuityForeColor: [CPColor whiteColor]]; //will be copied → gColorFore
    [Settings setAcuityBackColor: [CPColor blackColor]];

    savedauditoryFeedback4trialIndex = [Settings auditoryFeedback4trialIndex];
    //[Settings setAuditoryFeedback4trialIndex: kAuditoryFeedback4trialIndexNone];

    extentInPix = Math.round([MiscSpace pixelFromDegree: [Settings balmExtentInDeg]]);

    [super runStart];
}


- (void) alertProblemOfDiameter: (float) dia {
    let s = "\r\rThe combination of distance (";
    s += [Misc stringFromInteger: [Settings distanceInCM]] + " cm) and diameter (";
    s += [Misc stringFromNumber: dia decimals: 1 localised: YES] + "°)"
    s += " renders the stimulus (probably) invisible.\r\rTipp: <ESC><ESC> now, then Settings>BaLM>Distance to, e.g., 30 cm.\r\r"
    gLatestAlert = [CPAlert alertWithMessageText: "WARNING"
                                  defaultButton: "OK" alternateButton: "Cancel" otherButton: nil
                      informativeTextWithFormat: s];
    [gLatestAlert runModalWithDidEndBlock: function(alert, returnCode) {
        gLatestAlert = null;
    }];
}
//alternateButton: "Cancel  (ߵcߴ)"

- (void) drawStimulusInRect: (CGRect) dirtyRect forView: (FractView) fractView { //console.info("FractControllerBalm>drawStimulusInRect");
    [TrialHistoryManager setValue: 1];
    CGContextSaveGState(cgc);
    CGContextTranslateCTM(cgc,  viewWidthHalf, viewHeightHalf); //origin to center
    if (viewHeightHalf > extentInPix) {
        CGContextFillRect(cgc, CGRectMake(-viewWidthHalf, -viewHeightHalf, viewWidth, viewHeightHalf-extentInPix));
        CGContextFillRect(cgc, CGRectMake(-viewWidthHalf, extentInPix, viewWidth, viewHeightHalf-extentInPix));
    }
    if (viewWidthHalf > extentInPix) {
        CGContextFillRect(cgc, CGRectMake(-viewWidthHalf, -extentInPix, viewWidthHalf-extentInPix, 2 * extentInPix));
        CGContextFillRect(cgc, CGRectMake(extentInPix, -extentInPix, viewWidthHalf-extentInPix, 2 * extentInPix));
    }
    CGContextRestoreGState(cgc);
    [super drawStimulusInRect: dirtyRect];
}


- (int) responseNumberFromChar: (CPString) keyChar { //console.info("FractControllerBalm>responseNumberFromChar")
    switch (nAlternatives) {
        case 2: return [self responseNumber2FromChar: keyChar];
        case 4: return [self responseNumber4FromChar: keyChar];
        default:
            throw new Error("FractControllerBalm>responseNumberFromChar, alternatives not 2 or 4.");
    }
}


- (void) runEnd { //console.info("FractControllerBalm>runEnd");
    [Settings setAuditoryFeedback4trialIndex: savedauditoryFeedback4trialIndex];
    if (iTrial < nTrials) { //premature end
        [gAppController setResultStringFieldTo: gAbortMessage];
    } else {
        [gAppController setResultStringFieldTo: [self composeResultString]];
    }
    [super runEnd];
}


- (float) resultValue4Export { //console.info("FractControllerBalm>resultValue4Export");
    const total = gTestDetails[td_nCorrect] + gTestDetails[td_nIncorrect];
    if (gTestDetails[td_nTrials] !== total)
        throw new Error("FractControllerBalm: corret+incorrect ≠ total.");
    const hitRateInPercent = 100 * gTestDetails[td_nCorrect] / total;
    return hitRateInPercent;
}


- (CPString) composeResultString { //console.info("FractControllerBalm>composeResultString");
    let s = [Misc stringFromNumber: [self resultValue4Export] decimals: 1 localised: YES];
    s = "Hit rate: " + s + "%";
    return s;
}


- (CPString) composeExportString { //console.info("FractControllerBalm>composeExportString");
    if (gAppController.runAborted) return "";
    let s = [self generalComposeExportString];
    const nDigits = 3;
    s += CPTabCharacter + "value" + CPTabCharacter + [Misc stringFromNumber: [self resultValue4Export] decimals: nDigits localised: YES];
    s += CPTabCharacter + "unit1" + CPTabCharacter + gAppController.currentTestResultUnit
    s += CPTabCharacter + "distanceInCm" + CPTabCharacter + [Misc stringFromNumber: [Settings distanceInCM] decimals: 1 localised: YES];
    s += CPTabCharacter + "contrastWeber" + CPTabCharacter + 99;
    s += CPTabCharacter + "unit2" + CPTabCharacter + "%";
    s += CPTabCharacter + "nTrials" + CPTabCharacter + [Misc stringFromNumber: nTrials decimals: 0 localised: YES];
    s += CPTabCharacter + "rangeLimitStatus" + CPTabCharacter + rangeLimitStatus;
    s += CPTabCharacter + "crowding" + CPTabCharacter + [Settings crowdingType];
    return [self generalComposeExportStringFinalize: s];
}


@end