#include"Functions.inc"
/////////////////////////////////////////////////////////////////////////////////
// Math macros
#macro RandVect(Seed)
(2*<.5-rand(Seed),.5-rand(Seed),.5-rand(Seed)>)
#end
#macro RandDir(Seed)
(.5-rand(Seed))
#end
#macro Sign(A)
(A!=0)*A/abs(A)
#end
#macro SignVect(A)
<Sign(A.x),Sign(A.x),Sign(A.x)>
#end
#macro AbsVect(A)
<abs(A.x),abs(A.y),abs(A.z)>
#end
#macro IfSign(A,B)
(AbsVect(B)*<(Sign(A.x)=Sign(B.x)), (Sign(A.y)=Sign(B.y)), (Sign(A.z)=Sign(B.z))>)
#end
#macro CMYBW(Col)
#local
#end
///////////// Splatter macros //////////////////////////////////
//////// // Colour macros
#macro Colourize(Col, ColVar, Seed)
#local RGBVar=<min(Col.x,(1-Col.x)), .5*min(Col.y,(1-Col.y)), min(Col.z,(1-Col.z))>;
#local MaxVar=ColVar*(1-Col);
#local MinVar=ColVar*Col;
//#local Colours=Col+ColVar*RGBVar*(-Col+(1-Col)*<rand(Seed),rand(Seed),rand(Seed)>); // add variety of colours
#local Colours=Col-(MinVar*<rand(Seed),rand(Seed),rand(Seed)>)+(MaxVar*<rand(Seed),rand(Seed),rand(Seed)> );
#declare Colour=Colours;
#end// Colours(Col, ColVar, Seed)
//////////////////////////////////////////////////////////////////////
/* rgb to cmyk conversion
Black = minimum(1-Red,1-Green,1-Blue)
Cyan = (1-Red-Black)/(1-Black)
Magenta = (1-Green-Black)/(1-Black)
Yellow = (1-Blue-Black)/(1-Black)
*/
////////
#macro CMYK(Col, ColVar, Seed)
#local Colours=Col; //+ColVar*.5*(Col-.5+<rand(Seed),rand(Seed),rand(Seed)>); // add variety of colours
#if (Colours.x>1) #local Colours=<1,Colours.y,Colours.z>; #end // "Normalize" bright colours
#if (Colours.y>1) #local Colours=<Colours.x,1,Colours.z>; #end
#if (Colours.z>1) #local Colours=<Colours.x,Colours.y,1>; #end
#if ( (Colours.x<0)+(Colours.y<0)+(Colours.z<0) ) // "Normalize" negative colours
#local Colours=<(Colours.x)*(Colours.x>0),(Colours.y)*(Colours.y>0),(Colours.z)*(Colours.z>0)>;
#end
/////
#declare BlackLength=min(1-Col.x,1-Col.y,1-Col.z);
#declare BlackCol=<0,0,ColVar*rand(Seed)>;
#declare WhiteLength=1-BlackLength;
#declare WhiteCol=<1,1,1>-ColVar*.1*<rand(Seed),rand(Seed),rand(Seed)>;
#declare CyanLength=(1-Col.x-BlackLength)/WhiteLength;
#declare CyanCol=<0, .68,.93>+ColVar*<0,.32,.07>*rand(Seed); // C= <0, .68,.93>
#declare MagentaLength=(1-Col.y-BlackLength)/WhiteLength;
#declare MagentaCol=<.92,0,.56>+ColVar*<.08,0,.44>*rand(Seed); // M= <.92,0,.56> // <.92,.149,.56>
#declare YellowLength=(1-Col.z-BlackLength)/WhiteLength;
#declare YellowCol=<1,.94,.07>+ColVar*<0,.06,-.07>*rand(Seed);
////
#end// Colours(Col, ColVar, Seed)
//////////////////////////////////////////////////////////////////
#macro CMYbw(Col, ColVar, Seed)
#local Colours=Col; //+ColVar*.5*(Col-.5+<rand(Seed),rand(Seed),rand(Seed)>); // add variety of colours
#if (Colours.x>1) #local Colours=<1,Colours.y,Colours.z>; #end // "Normalize" bright colours
#if (Colours.y>1) #local Colours=<Colours.x,1,Colours.z>; #end
#if (Colours.z>1) #local Colours=<Colours.x,Colours.y,1>; #end
#if ( (Colours.x<0)+(Colours.y<0)+(Colours.z<0) ) // "Normalize" negative colours
#local Colours=<(Colours.x)*(Colours.x>0),(Colours.y)*(Colours.y>0),(Colours.z)*(Colours.z>0)>;
#end
/////
#declare BlackLength=min(1-Col.x,1-Col.y,1-Col.z);
#declare BlackCol=<0,0,.5*rand(Seed)>;
#declare WhiteLength=1-BlackLength;
#declare WhiteCol=<1,1,1>-ColVar*.1*<rand(Seed),rand(Seed),rand(Seed)>;
#declare CyanLength=(1-Col.x-BlackLength)/WhiteLength;
#declare CyanCol=<0, .68,.93>+ColVar*<0,.32,.07>*rand(Seed); // C= <0, .68,.93>
#declare MagentaLength=(1-Col.y-BlackLength)/WhiteLength;
#declare MagentaCol=<.92,0,.56>+ColVar*<.08,0,.44>*rand(Seed); // M= <.92,0,.56> // <.92,.149,.56>
#declare YellowLength=(1-Col.z-BlackLength)/WhiteLength;
#declare YellowCol=<1,.94,.07>+ColVar*<0,.06,-.07>*rand(Seed);
////
#end// Colours(Col, ColVar, Seed)
//////////////////////////////////////////////////////////////////
#macro CMYw(Col, ColVarMem, Seed)
#local Colours=Col; //+ColVar*.5*(Col-.5+<rand(Seed),rand(Seed),rand(Seed)>); // add variety of colours
#if (Colours.x>1) #local Colours=<1,Colours.y,Colours.z>; #end // "Normalize" bright colours
#if (Colours.y>1) #local Colours=<Colours.x,1,Colours.z>; #end
#if (Colours.z>1) #local Colours=<Colours.x,Colours.y,1>; #end
#if ( (Colours.x<0)+(Colours.y<0)+(Colours.z<0) ) // "Normalize" negative colours
#local Colours=<(Colours.x)*(Colours.x>0),(Colours.y)*(Colours.y>0),(Colours.z)*(Colours.z>0)>;
#end
/////
#declare BlackLength=min(1-Col.x,1-Col.y,1-Col.z);
//#declare BlackCol=<0,0,.5*rand(Seed)>;
#declare WhiteLength=max(Col.x,Col.y,Col.z);
#declare WhiteCol=<1,1,1>-ColVar*.1*<rand(Seed),rand(Seed),rand(Seed)>;
#declare CyanLength=(1-Col.x);
#declare CyanCol=<0, .68,.93>+ColVar*<0,.32,.07>*rand(Seed); // C= <0, .68,.93>
#declare MagentaLength=(1-Col.y);
#declare MagentaCol=<.92,0,.56>+ColVar*<.08,0,.44>*rand(Seed); // M= <.92,0,.56> // <.92,.149,.56>
#declare YellowLength=(1-Col.z);
#declare YellowCol=<1,.94,.07>+ColVar*<0,.06,-.07>*rand(Seed);
////
#end// CMYw(ColMem, ColVarMem, Seed)
// CMYOrig(ColMem, ColVarMem, Seed)
//////////////////////////////////////////////////////////////////
#macro CMYOrig(Col, ColVarMem, Seed)
#local Colours=Col; //+ColVar*.5*(Col-.5+<rand(Seed),rand(Seed),rand(Seed)>); // add variety of colours
#if (Colours.x>1) #local Colours=<1,Colours.y,Colours.z>; #end // "Normalize" bright colours
#if (Colours.y>1) #local Colours=<Colours.x,1,Colours.z>; #end
#if (Colours.z>1) #local Colours=<Colours.x,Colours.y,1>; #end
#if ( (Colours.x<0)+(Colours.y<0)+(Colours.z<0) ) // "Normalize" negative colours
#local Colours=<(Colours.x)*(Colours.x>0),(Colours.y)*(Colours.y>0),(Colours.z)*(Colours.z>0)>;
#end
/////
#declare BlackLength=min(1-Col.x,1-Col.y,1-Col.z);
//#declare BlackCol=<0,0,.5*rand(Seed)>;
#declare WhiteLength=max(Col.x,Col.y,Col.z);
#declare WhiteCol=<1,1,1>-ColVar*.1*<rand(Seed),rand(Seed),rand(Seed)>;
#declare CyanLength=(1-Col.x);
#declare CyanCol=<0, .68,.93>+ColVar*<0,.32,.07>*rand(Seed); // C= <0, .68,.93>
#declare MagentaLength=(1-Col.y);
#declare MagentaCol=<.92,0,.56>+ColVar*<.08,0,.44>*rand(Seed); // M= <.92,0,.56> // <.92,.149,.56>
#declare YellowLength=(1-Col.z);
#declare YellowCol=<1,.94,.07>+ColVar*<0,.06,-.07>*rand(Seed);
////
#end// CMYw(ColMem, ColVarMem, Seed)
// Colour sorting macro ///////////////////////////////////////////////////////////////////////////////
#macro ColSort(ColSystem, ColCountMax, ColMem, ColVarMem, LengthMem, Seed)
//#while (ColCount<ColCountMax)
#if (ColSystem=0) // Colourize
Colourize(ColMem, ColVar, Seed);
#local Col=Colour;
#local ColVar=ColVarMem;
#local Thickness=MinThickness+(rand(Seed)*(MaxThickness-MinThickness));
#elseif(ColSystem=1) // CMYKw
CMYK(ColMem, ColVarMem, Seed)
#switch(ColCount)
#case (0)
#local Col=BlackCol;
//#local MaxLength=BlackLength*LengthMem;
#local Thickness=MaxThickness*BlackLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=BlackLength*LengthMem;
#end
#local ColVar=0;
#break
#case (1)
#local Col=MagentaCol;
//#local MaxLength=MagentaLength*LengthMem;
#local Thickness=MaxThickness*MagentaLength ;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=MagentaLength*LengthMem;
#end
#local ColVar=0;
#break
#case (2)
#local Col=YellowCol;
//#local MaxLength=YellowLength*LengthMem;
#local Thickness=MaxThickness*YellowLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(YellowLength*(MaxThickness-MinThickness));
#local MaxLength=YellowLength*LengthMem;
#end
#local ColVar=0;
#break
#case (3)
#local Col=WhiteCol;
//#local MaxLength=WhiteLength*LengthMem;
#local Thickness=MaxThickness*WhiteLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(WhiteLength*(MaxThickness-MinThickness));
#local MaxLength=WhiteLength*LengthMem;
#end
#local ColVar=0;
#break
#case (4)
#local Col=CyanCol;
//#local MaxLength=CyanLength*LengthMem;
#local Thickness=MaxThickness*CyanLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(CyanLength*(MaxThickness-MinThickness));
#local MaxLength=CyanLength*LengthMem;
#end
#local ColVar=0;
#break
#end
#elseif(ColSystem=2) // CMYbw
CMYbw(ColMem, ColVarMem, Seed)
#switch(ColCount)
#case (0)
#local Col=BlackCol;
//#local MaxLength=BlackLength*LengthMem;
#local Thickness=MaxThickness*BlackLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=BlackLength*LengthMem;
#end
#local ColVar=0;
#break
#case (1)
#local Col=MagentaCol;
//#local MaxLength=MagentaLength*LengthMem;
#local Thickness=MaxThickness*MagentaLength ;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=MagentaLength*LengthMem;
#end
#local ColVar=0;
#break
#case (2)
#local Col=YellowCol;
//#local MaxLength=YellowLength*LengthMem;
#local Thickness=MaxThickness*YellowLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(YellowLength*(MaxThickness-MinThickness));
#local MaxLength=YellowLength*LengthMem;
#end
#local ColVar=0;
#break
#case (3)
#local Col=WhiteCol;
//#local MaxLength=WhiteLength*LengthMem;
#local Thickness=MaxThickness*WhiteLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(WhiteLength*(MaxThickness-MinThickness));
#local MaxLength=WhiteLength*LengthMem;
#end
#local ColVar=0;
#break
#case (4)
#local Col=CyanCol;
//#local MaxLength=CyanLength*LengthMem;
#local Thickness=MaxThickness*CyanLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(CyanLength*(MaxThickness-MinThickness));
#local MaxLength=CyanLength*LengthMem;
#end
#local ColVar=0;
#break
#end
#elseif(ColSystem=3) // CMYKrgbW
CMYK(ColMem, ColVarMem, Seed)
#switch(ColCount)
#case (0)
#local Col=<0,1,0>;
#local Thickness=MinThickness+(ColMem.y*(MaxThickness-MinThickness));
#if(Thickness<.001)
#local Thickness=MinThickness+(ColMem.y*(MaxThickness-MinThickness));
#local MaxLength=ColMem.y*LengthMem;
#end
#local ColVar=0;
#break
#case (1)
#local Col=<1,0,0>;
#local Thickness=MinThickness+(ColMem.x*(MaxThickness-MinThickness));
#if(Thickness<.001)
#local Thickness=MinThickness+(ColMem.x*(MaxThickness-MinThickness));
#local MaxLength=ColMem.x*LengthMem;
#end
#local ColVar=0;
#break
#case (2)
#local Col=<0,0,1>;
#local Thickness=MinThickness+(ColMem.z*(MaxThickness-MinThickness));
#if(Thickness<.001)
#local Thickness=MinThickness+(ColMem.z*(MaxThickness-MinThickness));
#local MaxLength=ColMem.z*LengthMem;
#end
#local ColVar=0;
#break
#case (3)
#local Col=BlackCol;
//#local MaxLength=BlackLength*LengthMem;
#local Thickness=MaxThickness*BlackLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=BlackLength*LengthMem;
#end
#local ColVar=0;
#break
#case (4)
#local Col=MagentaCol;
//#local MaxLength=MagentaLength*LengthMem;
#local Thickness=MaxThickness*MagentaLength ;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=MagentaLength*LengthMem;
#end
#local ColVar=0;
#break
#case (5)
#local Col=YellowCol;
//#local MaxLength=YellowLength*LengthMem;
#local Thickness=MaxThickness*YellowLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(YellowLength*(MaxThickness-MinThickness));
#local MaxLength=YellowLength*LengthMem;
#end
#local ColVar=0;
#break
#case (6)
#local Col=WhiteCol;
//#local MaxLength=WhiteLength*LengthMem;
#local Thickness=MaxThickness*WhiteLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(WhiteLength*(MaxThickness-MinThickness));
#local MaxLength=WhiteLength*LengthMem;
#end
#local ColVar=0;
#break
#case (7)
#local Col=CyanCol;
//#local MaxLength=CyanLength*LengthMem;
#local Thickness=MaxThickness*CyanLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(CyanLength*(MaxThickness-MinThickness));
#local MaxLength=CyanLength*LengthMem;
#end
#local ColVar=0;
#break
#end
#elseif(ColSystem=4)
CMYw(ColMem, ColVarMem, Seed)
#switch(ColCount)
#case (0)
#local Col=MagentaCol;
//#local MaxLength=MagentaLength*LengthMem;
#local Thickness=MaxThickness*MagentaLength ;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=MagentaLength*LengthMem;
#end
#local ColVar=0;
#break
#case (1)
#local Col=YellowCol;
//#local MaxLength=YellowLength*LengthMem;
#local Thickness=MaxThickness*YellowLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(YellowLength*(MaxThickness-MinThickness));
#local MaxLength=YellowLength*LengthMem;
#end
#local ColVar=0;
#break
#case (2)
#local Col=WhiteCol;
//#local MaxLength=WhiteLength*LengthMem;
#local Thickness=MaxThickness*WhiteLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(WhiteLength*(MaxThickness-MinThickness));
#local MaxLength=WhiteLength*LengthMem;
#end
#local ColVar=0;
#break
#case (3)
#local Col=CyanCol;
//#local MaxLength=CyanLength*LengthMem;
#local Thickness=MaxThickness*CyanLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(CyanLength*(MaxThickness-MinThickness));
#local MaxLength=CyanLength*LengthMem;
#end
#local ColVar=0;
#break
#end
#else
CMYOrig(ColMem, ColVarMem, Seed)
#switch(ColCount)
#case (0)
#local Col=MagentaCol;
//#local MaxLength=MagentaLength*LengthMem;
#local Thickness=MaxThickness*MagentaLength ;
#if(Thickness<.001)
#local Thickness=MinThickness+(BlackLength*(MaxThickness-MinThickness));
#local MaxLength=MagentaLength*LengthMem;
#end
#local ColVar=0;
#break
#case (1)
#local Col=YellowCol;
//#local MaxLength=YellowLength*LengthMem;
#local Thickness=MaxThickness*YellowLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(YellowLength*(MaxThickness-MinThickness));
#local MaxLength=YellowLength*LengthMem;
#end
#local ColVar=0;
#break
#case (2)
#local Col=CyanCol;
//#local MaxLength=CyanLength*LengthMem;
#local Thickness=MaxThickness*CyanLength;
#if(Thickness<.001)
#local Thickness=MinThickness+(CyanLength*(MaxThickness-MinThickness));
#local MaxLength=CyanLength*LengthMem;
#end
#local ColVar=0;
#break
#end
#end
#declare ColSortCol=Col;
#declare ColSortThickness=Thickness;
#declare ColSortMaxLength=MaxLength;
#declare ColSortVar=ColVar;
#end// colour sorting macro
//-------------------Dripping Macro------------------------------------------------//
#macro Dripping (Object, DropPos, Col, ColMem, ColVar , Finnish, MaxLength, MinThickness, MaxThickness, Norm, Seed, Squiglyness, Threshold, Direct)
#local TopStart=max_extent(Object) ;
#local BottomEnd=min_extent(Object) ;
#local TopEnd=<BottomEnd.x,TopStart.y,BottomEnd.z>;
#local BottomStart=<TopStart.x,BottomEnd.y,TopStart.z>;
#local FrontStart=<TopStart.x,TopStart.y,BottomEnd.z>;
#local FrontEnd=BottomEnd;
#local BackStart=TopStart;
#local BackEnd=<BottomEnd.x,BottomEnd.y,TopStart.z>;
#local LeftStart=<BottomEnd.x,TopStart.y,TopStart.z>;
#local LeftEnd=BottomEnd ;
#local RightStart=TopStart;
#local RightEnd=<TopStart.x,BottomEnd.y,BottomEnd.z>;
#local ObjectMid=BottomEnd+(.5*(TopStart-BottomEnd));
#local TopMid=<ObjectMid.x,TopStart.y,ObjectMid.z>;
#local BottomMid=<ObjectMid.x,BottomEnd.y,ObjectMid.z>;
#local FrontMid=<ObjectMid.x,ObjectMid.y,BottomEnd.z>;
#local BackMid=<ObjectMid.x,ObjectMid.y,TopStart.z>;
#local LeftMid=<BottomEnd.x,ObjectMid.y,ObjectMid.z>;
#local RightMid=<TopStart.x,ObjectMid.y,ObjectMid.z>;
#local Count=0;
#local JumpX=MinThickness;
#local JumpZ=MinThickness;
#local JumpY=MinThickness;
#local Jump=MinThickness;
#local XCount=0;
#local YCount=0;
#local ZCount=0;
#local Drip=0;
#local Thickness=MaxThickness;
#local Gravity=<0,-1,0>;
#local DropAngle= (ObjectMid-DropPos);
#local RanDirect=(2*<.5-rand(Seed),.5-rand(Seed),.5-rand(Seed)>) ; //RandVect(Seed);
#if((Direct.x=0)*(Direct.y=0)*(Direct.z=0))
#local Direction=(2*<.5-rand(Seed),.5-rand(Seed),.5-rand(Seed)>) ; //RandVect(Seed);
#else
#local Direction=Direct+Squiglyness*<sgn(Direct.x)*rand(Seed),sgn(Direct.y)*rand(Seed),sgn(Direct.z)*rand(Seed)>;
#end
#local Brush1=MaxThickness*RandVect(Seed);//<.5-rand(Seed),.5-rand(Seed),.5-rand(Seed)> ; //RandVect(Seed);
#local Brush2=MaxThickness*RandVect(Seed);//*<.5-rand(Seed),.5-rand(Seed),.5-rand(Seed)> ; //RandVect(Seed);
#local Brush3=MaxThickness*RandVect(Seed);//*<.5-rand(Seed),.5-rand(Seed),.5-rand(Seed)> ; //RandVect(Seed);
#local BlobY=MinThickness + .5*(MaxThickness-MinThickness);
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
blob{threshold Threshold //2 //.1
//#local Col=<1,1,1>*(<Col.red,Col.green,Col.blue>);
//sphere {0,1,1 scale Thickness Axial_Scale_Trans(Norm, BlobY-(.5*(Norm.y-1)/2)) translate DropPos texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
sphere {0,1,2 scale Thickness translate DropPos texture{pigment{rgb <1,1,1>*(<Col.red,Col.green,Col.blue>)} finish{Finnish}} }
//#warning concat("Col is:",CRGBFTStr(Col, 5, 5) ,"\n")
/*#if (WriteFile)
#write (dripFile, "blob{threshold ",Threshold,"\n"
"sphere {0,1,1 scale ",Thickness," translate ",DropPos," \n texture{pigment{rgb ", (Col) ,"} finish{Finnish}} } \n")
#end */
#while(Count<MaxLength)
#if(VEq5D(Col, (<0,0,0,0,1>+Col*<1,1,1,1,0>)))
#local Count=MaxLength+1;
#end
//#local Col=1*<1,1,1>*(<Col.red,Col.green,Col.blue>);
#local Col=<1,1,1>*(Col);
#local Jump= Thickness*.5;//(MinThickness*1) + (Thickness/(Count+1)) ;
#local JumpX=Jump*.5*(Squiglyness+((1-Squiglyness)*(abs(Norm.y)>abs(Norm.x))*(abs(Norm.y)-abs(Norm.x))));
#local JumpZ=Jump*.5*(Squiglyness+((1-Squiglyness)*(abs(Norm.y)>abs(Norm.z))*(abs(Norm.y)-abs(Norm.z))));
#local JumpY=Jump*.5*(1-Squiglyness)*(1-abs(Norm.y));
#local DropMem=DropPos;
#declare Squigly=<Squiglyness*Norm.y,Squiglyness*(1-Norm.y),Squiglyness*Norm.y>;
#if ((Direction.x=0)*(Direction.y=-1)*(Direction.z=0))
#local DirectMem1=Direction;
#local Direction=vnormalize( Direction+(Squigly*RandVect(Seed)) );
/*#if ((Direction.x=0)*(Direction.y=0)*(Direction.z=0))
#warning concat("DirectMem is:",CRGBStr(DirectMem1, 5, 5) ,"\n")
#end */
#end
#local ScanPos=DropPos+Jump*vnormalize(Norm+( Direction+(Squigly*RandVect(Seed)) ));
#local DropAngle=-Norm;
#local Norm=<0,0,0>;
#local DropPos= trace(Object, ScanPos,DropAngle,Norm);
#if (DropPos.y<=0)
#local DropPos= trace(Object, ScanPos,-DropAngle,Norm);
#local DropAngle=-DropAngle;
#end
#if ((DropPos.y<=0)*(DropMem.y>0))
#local DropPos=DropMem;
#local Drip=1;
#elseif(DropPos.y<=0)
#local Count=MaxLength+1;
#end
#if (DropPos.y>0)
#local Col=<1,1,1>*(<Col.red,Col.green,Col.blue>);
sphere {0, 1,1 scale Thickness Axial_Scale_Trans(Norm, BlobY-(.5*(Norm.y-1)/2)) translate DropPos texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
/*#if (WriteFile)
#write (dripFile, "sphere {0, 1,1 scale ",Thickness ," Axial_Scale_Trans(",Norm ,(BlobY+(.5*(Norm.y+1))) , ") translate ",DropPos ," \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#end */
#local Norm1=<0,0,0>;
#local Scan1= trace(Object, DropPos+Brush1+Thickness*Direction,DropAngle,Norm1);
#if (Scan1.y>0)
sphere {0, 1,1 scale Jump Axial_Scale_Trans(Norm, BlobY-(.5*(Norm1.y-1)/2)) translate Scan1 texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
/* #if (WriteFile)
#write (dripFile, "sphere {0, 1,1 scale ",Jump ," Axial_Scale_Trans(",Norm, (BlobY-(.5*(Norm1.y-1)/2)), ") translate ",Scan1 ," \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#end */
#end
#local Norm2=<0,0,0>;
#local Scan2= trace(Object, DropPos+Brush2+Thickness*Direction,DropAngle,Norm2);
#if (Scan2.y>0)
sphere {0, 1,1 scale Jump Axial_Scale_Trans(Norm, BlobY-(.5*(Norm2.y-1)/2)) translate Scan2 texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
/*#if (WriteFile)
#write (dripFile, "sphere {0, 1,1 scale ",Jump ," Axial_Scale_Trans(",Norm, (BlobY-(.5*(Norm1.y-1)/2)), ") translate ",Scan2 ," \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#end */
#end
#local Norm3=<0,0,0>;
#local Scan3= trace(Object, DropPos+Brush3+Thickness*Direction,DropAngle,Norm3);
#if (Scan3.y>0)
sphere {0, 1,1 scale Jump Axial_Scale_Trans(Norm, BlobY-(.5*(Norm3.y-1)/2)) translate Scan3 texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
/*#if (WriteFile)
#write (dripFile, "sphere {0, 1,1 scale ",Jump ," Axial_Scale_Trans(",Norm, (BlobY-(.5*(Norm1.y-1)/2)), ") translate ",Scan3 ," \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#end */
#end
#end
#if ((Drip+(Norm.y<-.5))*(rand(Seed)<(.75+.25*Direction.y))) // icicle
sphere {0, .5,1 scale Thickness Axial_Scale_Trans(Norm, BlobY-(.5*(Norm.y-1)/2)) translate DropPos texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
/*#if (WriteFile)
#write (dripFile, "sphere {0, .5,1 scale ",Thickness," Axial_Scale_Trans(",Norm, BlobY+(.5*(Norm.y+1)), ") translate ",DropPos," \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#end */
#if((Count<(MaxLength/2))*(rand(Seed)>.5))
#local Count=Count+((MaxLength-Count)/2);
#end
#local Thickness=Thickness*.3;
#local MinThickness=Thickness*.3;
#local DropPos=DropPos-(y*MinThickness);
#while (Count<(MaxLength-1))
#local Thickness=(MinThickness)+((Thickness-(MinThickness))*(1-((Count+1)/(MaxLength+1))));
#local JumpY=Thickness/4;
#local DropPos=DropPos-(y*JumpY);
#if (DropPos.y<Thickness)
sphere {0, 1,1 scale MaxThickness translate DropPos*<1,.5,1> texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
sphere {0, 1,1 scale <MaxThickness,Thickness*2,MaxThickness> translate DropPos*<1,0,1> texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }// pigment{rgb <1/Count,Count-1,Count*.1>}}
sphere {0, 1,1 scale <MaxThickness*10,BlobY,MaxThickness*10> translate DropPos*<1,0,1> texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }
/* #if (WriteFile)
#write (dripFile, "sphere {0, 1,1 scale ",MaxThickness," translate ",DropPos,"*<1,.5,1> \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#write (dripFile, "sphere {0, 1,1 scale ",<MaxThickness,Thickness*2,MaxThickness>," translate ",DropPos,"*<1,0,1> \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#write (dripFile, "sphere {0, 1,1 scale ",<MaxThickness*10,BlobY,MaxThickness*10>," translate ",DropPos,"*<1,0,1> \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#end */
#local Count=MaxLength+1;
#end
sphere {0, 1,1 scale Thickness Axial_Scale_Trans(Norm, abs(Norm.y)) translate DropPos texture{pigment{rgb <1,1,1>*(Col)} finish{Finnish}} }// pigment{rgb <1/Count,Count-1,Count*.1>}}
/*#if (WriteFile)
#write (dripFile, "sphere {0, 1,1 scale ",Thickness," Axial_Scale_Trans(", Norm," abs(", Norm.y,")) translate ",DropPos," \n texture{pigment{rgb ", Col ,"} finish{Finnish}}\n }\n")
#end*/
#local Norm=(Norm-y)/2;
#local Count=Count+1;
#end
#end
#local Drip=0;
#local Direction=vnormalize (Direction*((MaxLength+1)/(Count+1)) + Squiglyness*RanDirect *((Count+1)/(MaxLength+1)));
//#local Col=((Col*((MaxLength*MaxLength)-(Count*Count)))+(ColMem*((Count*Count)+1)))/((MaxLength*MaxLength)+1);
#local Thickness=MinThickness+(MaxThickness-MinThickness)*(1-((Count+1)/(MaxLength+1))) ;
#local Count=Count+1;
#end
//texture{pigment{rgb <1,1,1>*(Col)}finish{Finnish}}
/*#if (WriteFile)
//#write (dripFile, "Col{Col} \n}")
//#write (dripFile, "texture{pigment{rgb ", Col ,"} finish{Finnish}} \n}\n")
#write (dripFile, " \n}\n")
#end */
}// blob
#end // macro Dripping
///////////////////////////////////////
// TO DO ////////////////////////////////////////////////////////////////////////\\
/*
inside(O,V)
It returns either 0.0, when the vector V is outside the object, specified by the object-identifier O, or 1.0 if it is inside.
*/
// Brush strokes
// CMYK or CMYbw or even CMYKrgbW paint
/////////////////////////////////////////////////////////////////////////////////////
//---------------------------------------------------------------------------------
//******************************************************************************////
//-------------------Drip Macro------------------------------------------------//
#macro Drips (Object, ColMap, CamPos, CamLook, CamDirect, CamWidth, CamHeight, ColVar , Finnish, Spacing, MaxDrops, MaxLength, MinThickness, MaxThickness, Merge, Seed, Squiglyness, ColSystem, Threshold, Direction, ContainerStart,ContainerEnd)
#declare Pigment=pigment {
image_map { png ColMap }//once }
// transform it to unit-size (-1 to +1)
translate -0.5*(x+y) // center on the origin
scale <CamWidth/CamHeight,1,1>*2
translate CamDirect
Reorient_Trans(z, (CamLook-CamPos))
translate CamPos
} // end of plane ------------------------------------------
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
#declare ColMapPig=pigment {
image_map {png ColMap }//once }
translate -0.5*(x+y) // center on the origin
scale <CamWidth/CamHeight,1,1>*2
} // end of plane ------------------------------------------
#declare CamColours=intersection{
plane {-z,CamDirect.z }
box{<-CamWidth/CamHeight,-1,CamDirect.z>,<CamWidth/CamHeight,1,CamDirect.z+0.001>}
texture {
pigment {ColMapPig}
finish { ambient 1 diffuse 1}
}
translate CamDirect
Reorient_Trans(z, (CamLook-CamPos))
translate CamPos
}
//////////////////////////////////// *********************************************************** \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/*
TO DO:
start at center and scan to +x.
When edge reached, +y and scan to+x.
do the same in the other 3 sectors
___________________
| | |
| | |
| | |
| <====|=======>|
-------------------
|========|===> |
| <==| |
| | |
| | |
-------------------
*/
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
#local TopStart= max_extent(CamColours); //(x+y)*max_extent(CamColours) + z*max_extent(Object);//max_extent(Object) ;
#local BottomEnd=min_extent(CamColours) ;
#if ((ContainerStart.x!=0)*(ContainerStart.y!=0)*(ContainerStart.z!=0)*(ContainerEnd.x!=0)*(ContainerEnd.y!=0)*(ContainerEnd.z!=0))
#local Container=box{ContainerStart,ContainerEnd}
#local TopStart=max_extent(Container) ;
#local BottomEnd=min_extent(Container) ;
#end
#local ObjectSize=(TopStart-BottomEnd);
#local TopEnd=<BottomEnd.x,TopStart.y,BottomEnd.z>;
#local BottomStart=<TopStart.x,BottomEnd.y,TopStart.z>;
#local FrontStart=<TopStart.x,TopStart.y,BottomEnd.z>;
#local FrontEnd=BottomEnd;
#local BackStart=TopStart;
#local BackEnd=<BottomEnd.x,BottomEnd.y,TopStart.z>;
#local LeftStart=<BottomEnd.x,TopStart.y,TopStart.z>;
#local LeftEnd=BottomEnd ;
#local RightStart=TopStart;
#local RightEnd=<TopStart.x,BottomEnd.y,BottomEnd.z>;
#local ObjectMid=BottomEnd+(.5*(TopStart-BottomEnd));
#local TopMid=<ObjectMid.x,TopStart.y,ObjectMid.z>;
#local BottomMid=<ObjectMid.x,BottomEnd.y,ObjectMid.z>;
#local FrontMid=<ObjectMid.x,ObjectMid.y,BottomEnd.z>;
#local BackMid=<ObjectMid.x,ObjectMid.y,TopStart.z>;
#local LeftMid=<BottomEnd.x,ObjectMid.y,ObjectMid.z>;
#local RightMid=<TopStart.x,ObjectMid.y,ObjectMid.z>;
#local Count=0;
#local DropPos=<0,0,0>;
#local Jump=Spacing;
//#local MaxX=abs(BottomEnd.x-TopStart.x)/Jump;
//#local MaxZ=abs(BottomEnd.z-TopStart.z)/Jump;
//#local MaxY=abs(BottomEnd.y-TopStart.y)/Jump;
#local MaxX=sqrt(MaxDrops);
#local MaxY=sqrt(MaxDrops);
#local MaxZ=abs(BottomEnd.z-TopStart.z)/Jump;
#local Max=MaxDrops/2;
#local XCount=0;
#local YCount=0;
#local ZCount=0;
#local Count=0;
#local CamCount=0;
#local ColCount=0;
#local Hit=0;
#local HitCount=0;
#local MissCount=0;
//#local Threshold=.1;
#local Gravity=<0,-1,0>;
#if(Merge)
merge{
/*#if (WriteFile)
//#fopen dripFile "drips.inc" write
#write (dripFile, "merge{\n")
#end */
#else
union{
/*#if (WriteFile)
//#fopen dripFile "drips.inc" write
#write (dripFile,"union{\n")
#end */
#end
//#local ColMem=Col;
#local ColVarMem=ColVar;
#local LengthMem=MaxLength;
#switch(ColSystem)
#case(0) #local ColCountMax=1; #break // Colourize
#case(1) #local ColCountMax=5; #break // CMYKw
#case(2) #local ColCountMax=5; #break // CMYbw
#case(3) #local ColCountMax=8; #break // CMYKrgbW
#case(4) #local ColCountMax=4; #break // CMYw
#case(5) #local ColCountMax=4; #break // Orig to CMY
#end
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
//object{CamColours}
#if ((CamPos.x!=0)+(CamPos.y!=0)+(CamPos.z!=0))// From CamPos///////////////////////////////////////////////////////
// TopStart , BottomEnd
//box{BottomEnd,TopStart pigment {rgbt <0,1,1,.5>}}
#while ((XCount<=MaxX))// /////////////////////////////////////////////////////////////////////////
#while(YCount<=MaxY) // Scan Opposite directions
#while (ColCount<ColCountMax)
//#local LookPos=ObjectMid+(-.5+<rand(Seed),rand(Seed),rand(Seed)>)*2*(MinThickness+vlength(ObjectSize));
#local LookPos=BottomEnd-ObjectSize*.1+<(1.5*ObjectSize.x)*rand(Seed), (1.5*ObjectSize.y)*rand(Seed), (1.5*ObjectSize.z)*rand(Seed)>;
//#local LookPos=ObjectMid+(1-2*<rand(Seed),.5*(rand(Seed)+rand(Seed)),rand(Seed)>)*ObjectSize;
//#local DropPos=FrontStart-(z*MaxThickness*2)-(x*XCount*(rand(Seed)*2* Jump))-(y*YCount*(rand(Seed)*2* Jump));
///////////////// Camlook Direction //////////////////////////////////////////////////////////////////
#local DropAngle= vnormalize(LookPos-CamPos);
#if (ColSystem!=1) #local Thickness=MinThickness+(rand(Seed)*(MaxThickness-MinThickness));#end
#local Norm=<0,0,0>;
#local DripPos= trace(Object, CamPos,DropAngle,Norm);
#if (DripPos.y = 0)
#local DripPos= trace(Object, DropPos,-DropAngle,Norm);
#end
#if (DripPos.y > 0)
#local DropPos=DripPos;
#local NormCol=<0,0,0>;
#local PigScan=trace(CamColours,CamPos,vnormalize(DropPos-CamPos),NormCol);
#local Col=eval_pigment(Pigment,PigScan); /* */
#local ColMem=Col;
#include "ColSep.inc"
#local ThickMem=Thickness;
//#local Thickness=Thickness+(Thickness*.5*(-1+DropPos.z/BottomEnd.z));
Dripping (Object, DripPos, Col, ColMem, ColVar ,Finnish, MaxLength, MinThickness, Thickness, Norm, Seed, Squiglyness, Threshold, Direction)
#local Thickness=ThickMem;
#end
#if ( vlength(DripPos-LookPos) <= MaxThickness)
#local YCount=YCount+1;
#end
//-------------------------------------------
///////////////// Rand to Centre direction //////////////////////////////////////////////////////////////////
#local DropAngle= vnormalize(LookPos-ObjectMid);
#local Thickness=MinThickness+(rand(Seed)*(MaxThickness-MinThickness));
#local Norm=<0,0,0>;
#local DripPos= trace(Object, CamPos,DropAngle,Norm);
#if (DripPos.y > 0)
#local DropPos=DripPos;
#local NormCol=<0,0,0>;
#local PigScan=trace(CamColours,CamPos,vnormalize(DropPos-CamPos),NormCol);
#local Col=eval_pigment(Pigment,PigScan);
#local ColMem=Col;
#include "ColSep.inc"
#local ThickMem=Thickness;
//#local Thickness=Thickness+(Thickness*.5*(-1+DropPos.z/BottomEnd.z));
Dripping (Object, DripPos, Col, ColMem, ColVar ,Finnish, MaxLength, MinThickness, Thickness, Norm, Seed, Squiglyness, Threshold, Direction)
#local Thickness=ThickMem;
#end
#if ( vlength(DripPos-LookPos) <= MaxThickness)
#local YCount=YCount+1;
#end
//-----------------------------------------
///////////////// Rand to outside direction //////////////////////////////////////////////////////////////////
#local DropAngle= vnormalize(ObjectMid-LookPos);
#local Thickness=MinThickness+(rand(Seed)*(MaxThickness-MinThickness));
#local Norm=<0,0,0>;
#local DripPos= trace(Object, CamPos,DropAngle,Norm);
#if (DripPos.y > 0)
#local DropPos=DripPos;
#local NormCol=<0,0,0>;
#local PigScan=trace(CamColours,CamPos,vnormalize(DropPos-CamPos),NormCol);
#local Col=eval_pigment(Pigment,PigScan); /* */
#local ColMem=Col;
#include "ColSep.inc"
#local ThickMem=Thickness;
//#local Thickness=Thickness+(Thickness*.5*(-1+DropPos.z/BottomEnd.z));
Dripping (Object, DripPos, Col, ColMem, ColVar ,Finnish, MaxLength, MinThickness, Thickness, Norm, Seed, Squiglyness, Threshold, Direction)
#local Thickness=ThickMem;
#end
#if ( vlength(DripPos-LookPos) <= MaxThickness)
#local YCount=YCount+1;
#end
//-----------------------------------------
///////////////// Rand to -y direction //////////////////////////////////////////////////////////////////
#local DropAngle= -y;
#local Thickness=MinThickness+(rand(Seed)*(MaxThickness-MinThickness));
#local Norm=<0,0,0>;
#local DripPos= trace(Object, CamPos,DropAngle,Norm);
#if (DripPos.y > 0)
#local DropPos=DripPos;
#local NormCol=<0,0,0>;
#local PigScan=trace(CamColours,CamPos,vnormalize(DropPos-CamPos),NormCol);
#local Col=eval_pigment(Pigment,PigScan); /* */
#local ColMem=Col;
#include "ColSep.inc"
#local ThickMem=Thickness;
//#local Thickness=Thickness+(Thickness*.5*(-1+DropPos.z/BottomEnd.z));
Dripping (Object, DripPos, Col, ColMem, ColVar ,Finnish, MaxLength, MinThickness, Thickness, Norm, Seed, Squiglyness, Threshold, Direction)
#local Thickness=ThickMem;
#end
#if ( vlength(DripPos-LookPos) <= MaxThickness)
#local YCount=YCount+1;
#end
//-----------------------------------------
///////////////// Rand to z direction //////////////////////////////////////////////////////////////////
#local DropAngle= z;
#local Thickness=MinThickness+(rand(Seed)*(MaxThickness-MinThickness));
#local Norm=<0,0,0>;
#local DripPos= trace(Object, CamPos,DropAngle,Norm);
#if (DripPos.y > 0)
#local DropPos=DripPos;
#local NormCol=<0,0,0>;
#local PigScan=trace(CamColours,CamPos,vnormalize(DropPos-CamPos),NormCol);
#local Col=eval_pigment(Pigment,PigScan);
#local ColMem=Col;
#include "ColSep.inc"
#local ThickMem=Thickness;
//#local Thickness=Thickness+(Thickness*.2*(-1+DropPos.z/BottomEnd.z));
Dripping (Object, DripPos, Col, ColMem, ColVar ,Finnish, MaxLength, MinThickness, Thickness, Norm, Seed, Squiglyness, Threshold, Direction)
#local Thickness=ThickMem;
#end
#if ( vlength(DripPos-LookPos) <= MaxThickness)
#local YCount=YCount+1;
#end
//-----------------------------------------
#local MaxLength=LengthMem;
#local ColCount=ColCount+1;
#end
#local ColCount=0;
#local YCount=YCount+1;
#end
#local YCount=0;
#local Hit=0;
#local XCount=XCount+1;
#end
#local XCount=0;
#end// CamPos splatter
}// Union/Merge
/*#if (WriteFile)
#write (dripFile, "}")
#fclose dripFile
#end */
#end // macro
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//===================================================================================================================================//
///Test
/*
#declare Object= torus { 1.0,0.25
texture { pigment{ color rgb<1,0.7,0>}
finish { phong 1 reflection { 0.00 metallic 0.50} }
} // end of texture
scale .5 rotate<90,45,45> translate<0,1.5,0>
} // end of torus -------------------------------
//object{Object}
#declare Col=Col{texture{
pigment{rgb<0,1,0>}
finish{metallic .5 phong 1 phong_size 200 brilliance 2}
}
};
#declare MaxDrops=50; // uneven numbers work better
#declare MinThickness=.05;
#declare MaxThickness=.1;
#declare Merge=0;
#declare MaxLength=20;
#declare Seed=seed(97531);
#declare Squiglyness=1;
#declare PosXYZ=<1,1,1>; // Projections to trace eg: <0,1,0> is only from the top
#declare NegXYZ=<1,1,1>;
#declare Threshold=2;
Drips (Object, Col, MaxDrops, MaxLength, MinThickness, MaxThickness, Merge, Seed, Squiglyness, PosXYZ, NegXYZ, Threshold)
*/