Jump to content

Featured Replies

Posted

the function is missing here:

;;; Lesson 2 - Algorithmic
;;; 4. Pitches
;;;---------------------------------------------------------

(setf pitch-transp (7 -12 pitches))

 

;; Now let's transpose those pitches down an octave.

this snippet eval gives this:

> Error: Car of (7 -12 pitches) is not a function name or lambda-expression.
> While executing: ccl::cheap-eval-in-environment, in process Listener-1(8).

 

so I checked back to the Full score and it says this:

(setf pitch-transp (pitch-transpose -12 pitches))

 

which works and makes sense! the name of the setfield is quite similar to the function which can be confusing...

Just thought I would point this out for the benefit of other newbies!

julio

Please evaluate the score 2. Full score.opmo first.
Then there will be no errors.

Step by step :-)

I will add a line "Please evaluate the score first" in the 2. Full score document and in the 1. Start Here document.
Thank you.

  • Author

ah! OK, I went by steps originally, so I assumed all had been set by the full score... hum.

just tried it again and it gives the error even if I evaluate the full score first... this snippet:

(setf pitch-transp (7 -12 pitches))

 

returns:

Error: Car of (7 -12 pitches) is not a function name or lambda-expression.
> While executing: ccl::cheap-eval-in-environment, in process Listener-2(38).

 

still think it is an error...

:)

There is no such a expression in the score:

(setf pitch-transp (7 -12 pitches))

 

This is an errors for sure :-)

Here is the Full score:

;;;---------------------------------------------------------
;;; Lesson 2 - Algorithmic
;;; 2. Full Score
;;;---------------------------------------------------------

(setf size 120)
(setf vector
      (gen-sine
       size 1 '(0.5 0.4 0.3 0.6)
       :modulation (gen-sine size 1 0.3 :phase 180)))
(list-plot vector)
(setf pitch (vector-to-pitch '(g1 g6) vector))
(setf pitches (gen-divide 4 pitch))
(setf pitch-transp (pitch-transpose -12 pitches))
(setf section (rnd-unique 15 (gen-integer 0 27)))
(setf variants (pitch-variant
                pitch-transp :variant '? :section section))
(setf length1 (rnd-sample size '(s e s s)))
(setf span (get-span length1))
(setf length2 (length-span span (rnd-sample size '(s e s s))))
(setf dynamic1 (rnd-sample size '(p mp mf f ff)))
(setf dynamic2 (rnd-sample size '(p mp mf f ff)))

(def-score sine
           (:key-signature 'atonal
            :time-signature '((1 1 1 1) 4)
            :tempo 120
            :layout (piano-solo-layout 'rh 'lh
                                  :all-accidentals t
                                  :ignore-velocity t))
  (rh
   :length length1
   :pitch pitches
   :velocity dynamic1
   :sound 'gm :channel 1 :program 'acoustic-grand-piano)
  
  (lh
   :length length2
   :pitch variants
   :velocity dynamic2)
  )

 

  • Author

that's what I thought...

by the way, this software is simply awesome!!

I am slowly going through it as I think this may substitute my use of the pattern library from supercollider...

:-)

The 4. Pitch.opmo document:

;;;---------------------------------------------------------
;;; Lesson 2 - Algorithmic
;;; 4. Pitches
;;;---------------------------------------------------------

(setf pitch (vector-to-pitch '(g1 g6) vector))

;; Here we are converting the vector values to pitch
;; symbols in a range from G1 to G6. Select the
;; expression and see the pitches appear in the LISTENER.

(setf pitches (gen-divide 4 pitch))

;; In the next step of our exercise we'll divide the
;; PITCH list into groups of four pitches.

(setf pitch-transp (pitch-transpose -12 pitches))

;; Now let's transpose those pitches down an octave.

;; Try viewing / playing these expressions as SNIPPETS.
;; Select an expression and go to the TOOLS menu and
;; experiment.

 

If want to go back to the original Quick Start workspace:

1. Close the 'Quick Start' workspace if open.
2. Quit the Opusmodus app.
3. Delete the 'Quick Start' folder from your ~/Opusmodus folder which you will find in your home directory.
4. Start the Opusmodus app.
5. Go to 'Help' menu and select 'Install Quick Start Workspace'
6. Press OK
7. The new 'Quick Start' workspace will open.

Every time you wan’t to open the Quick Start workspace, simply select 'Open Quick Start Workspace' from the Help menu.

  • Author

could I have changed that myself to create the error? I tried to change it earlier but it told me those files were protected... 

sorry for the hassle!!

  • Author

Yes please!, to stop idiots like me modifying the code and then finding their own error!!!

hahahahahaha!!

Thank you for your patience, I promise I will not be this needy in the future!  :-)

 

Create an account or sign in to comment


Copyright © 2014-2025 Opusmodus™ Ltd. All rights reserved.
Product features, specifications, system requirements and availability are subject to change without notice.
Opusmodus, the Opusmodus logo, and other Opusmodus trademarks are either registered trademarks or trademarks of Opusmodus Ltd.
All other trademarks contained herein are the property of their respective owners.

Powered by Invision Community

Important Information

Terms of Use Privacy Policy