type : copy an occurence

Strict

Global My_pixels_list:Tlist = CreateList()

Type TPixel
	Field x
	Field y
	
	Function Create:TPixel (x:Int , y:Int)
		
		Local p:TPixel = New TPixel
		
		p.x = x
		p.y = y
		
		ListAddLast My_pixels_list , p
		
		Return p
		
	End Function
	
	Function Copy:TPixel (p:TPixel)
		
		Local e:TPixel
		
		e = p ' <--- i just want copy p

		e.y = p.y + 10 ' <---- but p is also modified, in fact p.y = e.y, so e isn't a copy of p.
		
		ListAddLast My_pixels_list , e
		
		Return e
		
	End Function
	
	Function Draw_all ()
		
		SetColor 255,255,255
		For Local p:TPixel = EachIn My_pixels_list
			Plot p.x , p.y
			DebugLog "x=" + p.x
			DebugLog "y=" + p.y
		Next
		
	End Function
	
End Type

Graphics 800 , 600

Local p1:TPixel = TPixel.Create (100 , 100)
Local p2:TPixel = TPixel.Copy (p1)

While Not KeyDown(KEy_ESCAPE)
	TPixel.Draw_all()
	Flip
Wend

SuperStrict

Type TType
	Field ID$ , x% , y%
	
	Function Copy:TType(other:TType)
		
		Local cu:TType = New TType
		
		MemCopy(cu , other , SizeOf(TType) )
		
		Return cu
		
	End Function
End Type

Local a:TType = New TType
a.x = 10
a.y = 100
a.ID = "ONE"
Print "A"
Print a.ID
Print a.x + ", " + a.y
Print "Copying to B"
Local b:TType = TType.Copy(a)
Print "B"
Print b.ID
Print b.x + ", " + b.y
Print "Changing B..."
b.x = 20
b.y = 200
b.ID = "TWO"
Print "A"
Print a.ID
Print a.x + ", " + a.y

Print "B"
Print b.ID
Print b.x + ", " + b.y