//----------------------------------------
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Alpha Quick 3D ZScript for ZBrush 1.55b
// von Bine Geusgen
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// ---------------------------------------
[Title,"Alpha Quick 3D"]
[PD]
[FontSetColor,255,176,0]
ein kleines Script von Bine Geusgen (mit freundlicher Unterstuetzung von BigMike)
[FontSetSizeMedium]
[FontSetColor,0,0,0]
Dieses Script soll das Erstellen von Alpha-3D-Objekten
vereinfachen. Bitte zuerst etwas auf die Leinwand malen.
[FontSetColor,255,176,0]
//Bedienfeld
Meshaufloesung:     Meshform:
[PenMove,0,10]
[VarSet,   Anfang,   ([IGet,Alpha:MRes])]
[ISlider,"Aufloesung",Anfang,1,8,256,"waehle die Meshaufloesung",
 [ISet,Alpha:MRes,[IGet,Zscript:Aufloesung]]
,0,120]
[PenMove,60,0]
[SectionBegin,"Doppel-/Einseitig",1,"Doppel- oder Einseitiges Mesh aktivieren ",
  [IPress,Alpha:dbls]
  [Note,"Doppelseitig",,1],
  [IUnPress,Alpha:dbls]
  [Note,"Einseitig",,1],
] [SectionEnd]
  [PenMove,40,0]
//Erstellung des 3D-Objektes.
  [IButton,"Erstelle 3D-Objekt","erstellt 3D-Objekt mit vorgenommenen
  Alpha-Einstellungen",
  [VarSet,   Breite,   ([IGet,Document:Modifiers:Width])]
  [VarSet,   Hoehe,  ([IGet,Document:Modifiers:Height])]
  [IPress,Tool:MRGBZGrabber] [CanvasClick,0, 0, Breite, Hoehe]
  [VarSet,  Objektbreite, ([IGet,Texture:Modifiers:Width])]
  [VarSet, Objekthoehe,  ([IGet,Texture:Modifiers:Height])]
  [VarDiv,Objektbreite,2]
  [VarDiv,Objekthoehe,2]
  [IPress,Texture:Txtr00]
  [IPress,Alpha:Make 3D]
  [IPress,Layer:Clear]
  [CanvasClick,0,0,20,20]
  [IUnPress,Transform: Edit]
  [IPress,Transform:Move]
  [VarDiv,Breite,2]
  [VarDiv,Hoehe,2]
  [TransformSet,breite,hoehe,,Objektbreite,Objekthoehe,Objektbreite,0,360,0]
  [Iset,Texture:Item Info,999]
  [IPress,Tool:MODIFIERS:TEXTURE:Uvp]
  [IPress,Tool:MODIFIERS:TEXTURE:ApplyAdj]
  [IPress,Transform: Edit]
 //Zurueck zum vorherigen Script 
  [IPress,Zscript:Previous]
  ]