TVpaint Tutorials

tv_ListRequest "Freehand|Line|Line Fill|Spline|Spline Filled|Flood Fill|Freehand Select|Spline Select|Rectangle Cutbrush|Poly Cutbrush|-|New Layer [TOP]"

Parse Result Dummy TheTool

If (Cmp(TheTool,"Cancel") == 0)

If (Cmp(TheTool,"Freehand") == 1)
tv_setActiveShape "freehandline"
END

If (Cmp(TheTool,"Line") == 1)
tv_setActiveShape "line"
END

If (Cmp(TheTool,"Line Fill") == 1)
tv_setActiveShape "linefill"
END

If (Cmp(TheTool,"Spline") == 1)
tv_setActiveShape "spline"
END

If (Cmp(TheTool,"Spline Filled") == 1)
tv_setActiveShape "splinefill"
END

If (Cmp(TheTool,"Flood Fill") == 1)
tv_setActiveShape "flood"
END

If (Cmp(TheTool,"Freehand Select") == 1)
tv_setActiveShape "selectfreehand"
END

If (Cmp(TheTool,"Spline Select") == 1)
tv_setActiveShape "selectspline"
END

If (Cmp(TheTool,"Rectangle Cutbrush") == 1)
tv_setActiveShape "cutrect"
END

If (Cmp(TheTool,"Poly Cutbrush") == 1)
tv_setActiveShape "cutpoly"
END

If (Cmp(TheTool,"New Layer [TOP]") == 1)

tv_ReqString "New Layer [Top]"
Parse Result LayerName

If (Cmp(LayerName,"Cancel") == 0)
tv_LayerCreate LayerName
tv_LayerMove 0
END

END