Code : Tout sélectionner
InitSprite()
InitKeyboard()
Structure moto
nom.s
EndStructure
Global Dim fer.moto (10)
Global Dim tableau.l (5,5)
fer(1)\nom = "tableau"
tableau(5,5) = RGB(128,0,128)
Macro macro_test ( remplace)
Debug remplace
; StartDrawing(ScreenOutput())
; Plot(10,10,remplace(5,5))
; StopDrawing()
EndMacro
Procedure Appel()
macro_test(fer(1)\nom)
EndProcedure
OpenScreen(320,200,8,"test")
appel()
Repeat
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
Normalement "remplace" devrait etre tableau donc tableau(5,5) = rgb(128,0,128) soit un point violet !