material orientaion

Hello everyone,
 
I am working on textile composites. I have to assign local material orientation for the fibers. I have come across *ORIENT  subroutine in abaqus. But I am quite new to user subroutines. Is there any other way in which I can assign local material orientation to the fibers?
The fiber layout is such  that it has linear as well as sine part. Can anyone give some idea on how to create *ORIENT for such fibers?

Thanks