Dtyjlui

I'm working through a coding exercise to program a matrix of Lissajour Curves in Mathematica but have encountered an obstacle when trying to recover the translated Point to then do further processing on them (as seen through the link). I've encountered problems trying to recovering the updated coordinates of translated points using Normal before. In this case I've gone so far as to try to rebuild that solution in my current notebook to no avail. It seems like there should be some application of Normal to Graphics[graphicsdata] that would generate the updated point coordinates in a list. I'm not sure what I'm missing about how Normal works but it would be useful to understand it as I try to advance my Mathematica program complexity.

angle = Drop[Range[0,Pi 2,(2 Pi)/20],-1];

cols = 5;

rows = 3;

radius = .45;



functionXY[anglevar_]:= {radius * Cos[anglevar],radius * Sin[anglevar]}



translatevectors = Flatten[{Table[{x,0},{x,cols}],Table[{0,-y},{y,rows}]},1];

points = Point /@ functionXY /@ angle;

graphicsdata = Table[Translate[#, translatevectors[[n]]] &/@ points,{n,Length@translatevectors}];

Graphics[graphicsdata]

Updated Dec 29 2018

I just thought it would be helpful to post the updated code here using the suggestions below should others find themselves in the postion of Normal not recovering translated coordinates as expected. In this case it is probably better to use TranslationTransform in the first place as now graphicsdata returns exactly the updated point's new coordinates that can be further post-processed.

elementaryPoints = functionXY /@ angle;

graphicsdata = Table[TranslationTransform[translatevectors[[n]]]@# &/@ elementaryPoints,{n,Length@translatevectors}];

Table[Point /@ graphicsdata[[n]],{n, Length@translatevectors}] // Graphics

As mentioned in the linked q/a, the section Properties and Relations in Scale, Translate and GeometricTransformation says:

When possible, Normal will transform the coordinates explicitly.

When Normal does not work, you can post-process the translated primitives to regular primitives with translated coordinates:

normal = # /. Translate[Point[x_], t_] :> Point[TranslationTransform[t]@x] &;

coords = Cases[normal@Graphics[graphicsdata], Point[x_] :> x, ∞];



Show[ListPlot[coords, AspectRatio -> Automatic, Axes -> False, 

  PlotStyle -> Directive[AbsolutePointSize[7], Opacity[.7, Red]]], 

 Graphics[graphicsdata]]