Text Display and/or Slide Drawing?
Posted: Sat Oct 26, 2024 8:34 pm
Would the Text Display and/or AutoCAD Slide Drawing examples from the Cortex M7 package port to the RP2040?
A technical support group for Astrobe Oberon users
https://astrobe.com./forum/
Code: Select all
Display Pi Pico
------- -------
Gnd 3. GND
VCC 36. 3V3 (OUT)
RESET 9. GP6
D/C 10. GP7
-
CS 12. GP9
MOSI 15. GP11
SCK 19. GP14
-
LITE 20. GP15
Code: Select all
(* ========================================================================= *)
PROCEDURE ConfigurePin(VAR pin: GPIO.Pin; alternateFunction: INTEGER);
VAR
config: GPIO.PortConfiguration;
BEGIN
config.mode := GPIO.Mode_Out;
config.alternateFunction := alternateFunction;
GPIO.Configure(pin, config)
END ConfigurePin;
(* ========================================================================= *)
PROCEDURE ConfigurePins;
BEGIN
pinRESET.no := 6;
pinDC.no := 7;
pinCS.no := 9;
pinMOSI.no := 11;
pinSCK.no := 14;
pinLITE.no := 15;
ConfigurePin(pinRESET, GPIO.FSIO);
ConfigurePin(pinDC, GPIO.FSIO);
ConfigurePin(pinSCK, GPIO.FSPI);
ConfigurePin(pinCS, GPIO.FSPI);
ConfigurePin(pinMOSI, GPIO.FSPI);
ConfigurePin(pinLITE, GPIO.FSIO)
END ConfigurePins;