Index: TECH/Svg/Services/CoordinatesService.cls.xml =================================================================== diff -u -r3686 -r3693 --- TECH/Svg/Services/CoordinatesService.cls.xml (.../CoordinatesService.cls.xml) (revision 3686) +++ TECH/Svg/Services/CoordinatesService.cls.xml (.../CoordinatesService.cls.xml) (revision 3693) @@ -11,9 +11,9 @@ Set CoordinatesList = ##class(%ListOfObjects).%New() Set PuntenIterator = ##class(TECH.ArrayOneDimIterator).%New(.Punten) While (PuntenIterator.HasNext()) { - Set EerstePuntVanCoordinaat = PuntenIterator.Next() - Set TweedePuntVanCoordinaat = PuntenIterator.Next() - Set CoordinaatVanTweePunten = BasisElementFactory.MaakCoordinaat(EerstePuntVanCoordinaat,TweedePuntVanCoordinaat) + #dim EerstePuntVanCoordinaat As %Integer = PuntenIterator.Next() + #dim TweedePuntVanCoordinaat As %Integer = PuntenIterator.Next() + #dim CoordinaatVanTweePunten As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(EerstePuntVanCoordinaat,TweedePuntVanCoordinaat) Do CoordinatesList.Insert(CoordinaatVanTweePunten) } Quit CoordinatesList