### GetTrigCurve($iLength,$iAmplitude,$fFreq,$sType);
my  @aCurve = GetTrigCurve(30,48,100,'cos');
print GetPoints(  [@aCurve]   )
print DrawCurve(  [@aCurve]   );

__END__

0,3,12,24,36,45,47,44,34,22,10,2,0,4,14,26,38,46,47,42,32,20,8,1,0,5,16,28,40,46,47
        ###
             ###
                      ###
                                  ###
                                              ###
                                                       ###
                                                         ###
                                                      ###
                                            ###
                                ###
                    ###
            ###
          ###
              ###
                        ###
                                    ###
                                                ###
                                                        ###
                                                         ###
                                                    ###
                                          ###
                              ###
                  ###
           ###
          ###
               ###
                          ###
                                      ###
                                                  ###
                                                        ###
                                                         ###