(This is a follow-up question to the answer found [here](https://mathematica.stackexchange.com/questions/77217/dynamic-viewpoint-on-notebook-startup).)

I would like to define a clip plane dynamically from the current `ViewPoint` of my `Graphics3D`. Based on the solution found in the link above, I would like to do something like this (where the `ClipPlanes` option depends on the `ViewPoint` variable `vp`):

```
DynamicModule[
   {vp},
   {vp} = Options[Graphics3D, ViewPoint][[All, 2]];
   Graphics3D[{FaceForm[Red, Blue], Sphere[]}, Axes -> True, ViewPoint -> Dynamic[vp], 
     ClipPlanes -> {{Sequence@@vp,0}}, ClipPlanesStyle -> Directive[Opacity[.2], Blue]
   ]
]

```

Unfortunately this doesn't work, and I couldn't figure out how to do it.