Source Code PR Mulok

Ini gw ada source code, tapi cuma baru jadi yg pertama doank
gw blom bikin sisa 3 nya (yg bagian atas, kanan, bawah)
moga2 membantu ya (arv1nd)

Command: line
Specify first point: 20,20
Specify next point or [Undo]: @4<0
Specify next point or [Undo]: @1<90
Specify next point or [Close/Undo]: @2<180
Specify next point or [Close/Undo]: @1<90
Specify next point or [Close/Undo]: @2<0
Specify next point or [Close/Undo]: @1<90
Specify next point or [Close/Undo]: @4<180
Specify next point or [Close/Undo]: close
Command: arc
Specify start point of arc or [Center]: endp
of
Specify second point of arc or [Center/End]: en
Specify end point of arc: endp
of
Specify center point of arc or [Angle/Direction/Radius]: Radius
Specify radius of arc: 1.5
Command: arc
Specify start point of arc or [Center]: endp
of
Specify second point of arc or [Center/End]: en
Specify end point of arc: endp
of
Specify center point of arc or [Angle/Direction/Radius]: Radius
Specify radius of arc: 0.5
Command: erase
Select objects: 1 found
Select objects: 1 found, 2 total
Select objects:
Command: circle
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: cen
of
Specify radius of circle or [Diameter]: 1