SHARE
TWEET

Untitled

a guest Jun 18th, 2019 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. shp = Triangle[];
  2. Graphics[{LightGray, shp}]
  3.      
  4. scaledShps =
  5.   TransformedRegion[shp,
  6.      ScalingTransform[{#, #},
  7.       RegionCentroid@shp]] & /@ Range[.8, .4, -.2];
  8. SeedRandom[456]
  9. Graphics[{LightGray, shp, Riffle[Hue /@ RandomReal[1, 3], scaledShps]}]
  10.      
  11. Graphics[{
  12.   LightGray, shp,
  13.   Orange, Thick, Line@Flatten[First /@ scaledShps, 1]
  14.   }]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top