Skip to main content

Many polygons

Shadows and no shadows

Download original notebook
Graphics3D[{Shadows[shadow],  ExampleData[{"Geometry3D","StanfordBunny"}][[1]], SpotLight[White, {{0., -0.4473, 0.4291}, {0,0,0}}, Pi/4, 1], Polygon[ 0.01{{-20,20,-1}, {20,20,-1}, {20,-20,-1}, {-20,-20,-1}}]}, "Lighting"->None] /. {{shadow -> True}, {shadow -> False}} // Column
(*GB[*){{(*VB[*)(FrontEndRef["60ab003d-5b63-4d61-8a41-15079c786aa3"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKmxkkJhkYGKfomiaZGeuapJgZ6lokmhjqGpoamFsmm1uYJSYaAwB5SRUD"*)(*]VB*)}(*||*),(*||*){(*VB[*)(FrontEndRef["7db55b65-09aa-4b4e-98a2-5028c10225f4"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKm6ckmZommZnqGlgmJuqaJJmk6lpaJBrpmhoYWSQbGhgZmaaZAACDWBU7"*)(*]VB*)}}(*]GB*)

Some other example

Graphics3D[{Shadows[True], Polygon[ {{-5,5,-1}, {5,5,-1}, {5,-5,-1}, {-5,-5,-1}}], White, Cuboid[{-1,-1,-1}, {1,1,1}], Shadows[False], PointLight[Red, {1.5075, 4.1557, 2.6129}, 100], Shadows[True], SpotLight[Cyan, {-2.268, -2.144, 3.1635}]}, "Lighting"->None]
(*VB[*)(FrontEndRef["30ad2922-a952-4755-a71e-1ed077fe1e38"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKGxskphhZGhnpJlqaGumamJua6iaaG6bqGqamGJibp6UaphpbAAB4cxVC"*)(*]VB*)