Prototyp

// Bazowy prototyp.
abstract class Shape is
    field X: int
    field Y: int
    field color: string

    // Zwyczajny konstruktor.
    constructor Shape() is
        // ...

    // Konstruktor prototypu. Nowy obiekt jest inicjalizowany
    // wartościami istniejącego obiektu.
    constructor Shape(source: Shape) is
        this()
        this.X = source.X
        this.Y = source.Y
        this.color = source.color

    // Klonowanie zwraca jedną z podklas Shape.
    abstract method clone():Shape


// Konkretny prototyp. Metoda klonująca tworzy świeży obiekt i
// przekazuje go do konstruktora. Dopóki konstruktor nie skończy
// pracy, posiada jako jedyny odniesienie do świeżego klona.
// Gwarantuje to spójność klonowania.
class Rectangle extends Shape is
    field width: int
    field height: int

    constructor Rectangle(source: Rectangle) is
        // Trzeba wywołać konstruktor nadklasy w celu
        // skopiowania pól zdefiniowanych w nadklasie.
        super(source)
        this.width = source.width
        this.height = source.height

    method clone():Shape is
        return new Rectangle(this)


class Circle extends Shape is
    field radius: int

    constructor Circle(source: Circle) is
        super(source)
        this.radius = source.radius

    method clone():Shape is
        return new Circle(this)


// Gdzieś w kodzie klienckim.
class Application is
    field shapes: array of Shape

    constructor Application() is
        Circle circle = new Circle()
        circle.X = 10
        circle.Y = 10
        circle.radius = 20
        shapes.add(circle)

        Circle anotherCircle = circle.clone()
        shapes.add(anotherCircle)
        // Zmienna `anotherCircle` zawiera dokładną kopię
        // obiektu `circle`.

        Rectangle rectangle = new Rectangle()
        rectangle.width = 10
        rectangle.height = 20
        shapes.add(rectangle)

    method businessLogic() is
        // Wzorzec Prototyp rządzi, bo pozwala stworzyć kopię
        // obiektu bez wiedzy o jego typie.
        Array shapesCopy = new Array of Shapes.

        // Na przykład — nie musimy znać dokładnych elementów w
        // tablicy figur (shapes). Wiemy tylko, że wszystkie są
        // figurami. Ale dzięki polimorfizmowi, gdy wywołujemy
        // metodę `klonuj` na figurze, program sprawdza jej
        // klasę i uruchamia odpowiednią metodę klonującą
        // zdefiniowaną w tejże klasie. Dlatego też otrzymujemy
        // odpowiednie obiekty-klony, a nie ogólne obiekty
        // Shape.
        foreach (s in shapes) do
            shapesCopy.add(s.clone())

        // Tablica `shapesCopy` zawiera wierne kopie podklas z
        // tablicy `shape`.