Các đối tượng "vẽ tay" riêng biệt trong Mathematica

Question

Cách đơn giản nhất/thuận tiện nhất để tách các đối tượng vẽ tay trong Mathematica khỏi các đối tượng được lập trình là gì?

Các công cụ vẽ tương tác thuận tiện và hữu ích. Nhưng nếu tôi vẽ thứ gì đó lên trên cốt truyện, nó sẽ bị mất ngay khi cốt truyện được tạo lại. Có một giải pháp thuận tiện cho việc này?

Tôi có thể vẽ bản vẽ lên trên một ô trống, chúng kết hợp chúng với cốt truyện thực tế. Nhưng điều này là một lần nữa bất tiện vì tôi cần phải tự thiết lập phạm vi lô của ô trống và tôi không thấy nền phía trên mà tôi đang thêm các chú thích.

Answer 1

Một cách tiếp cận, sử dụng một chú thích để gắn cờ nội dung được tạo ra:

Plot[Annotation[Sin[x], "GeneratedPrimitives"], {x, 0, 10}] 

RecoverDrawing[g_Graphics] := g /. Annotation[_, "GeneratedPrimitives"] :> {} 

RecoverDrawing[<modified graphic>] 

Answer 2

Thật không may, điều tốt nhất tôi có thể nghĩ đến là viết một chương trình bằng cách sử dụng ClickPane hoặc EventHandler không chỉ vẽ bản ghi bu các điểm được thêm vào hình ảnh. Một sửa đổi mã như:

DynamicModule[{pts = {}}, 
ClickPane[Dynamic[Framed@Graphics[Line[pts], PlotRange -> 1]], 
    AppendTo[pts, #] &]]