|
|
|
make "oninteractive.number [ object '' ',to ïnameø, make "type "#ïnameø, to ondrawimage end, to onclearimage end,end' locus '' 'locus "ïnameø "ïparamnameø ïfromø ïstepø ïcountø, [,ïcommandsø, ]' 'ïxø+ïyø' dm_sum 'ïxø+ïyø' 'ïxø-ïyø' dm_sub 'ïxø-ïyø' 'ïxø*ïyø' dm_mul 'ïxø*ïyø' 'ïxø/ïyø' dm_div 'ïxø/ïyø' idiv dm_idiv 'ïxø idiv ïyø' imod dm_imod 'ïxø imod ïyø' trunc dm_trunc 'trunc ïxø' round dm_round 'round ïxø ïxø' random dm_rand 'random ïxø' abs dm_abs 'abs ïxø' neg dm_neg 'neg ïxø' sign dm_sign 'sign ïxø' number? dm_numbp 'number? ïxø' ] { make "oninteractive.word [ word [dm_word '(word ïxø ïyø)'] first [dm_first 'first ïxø ïyø'] last [dm_last 'last ïxø ïyø'] bf [dm_bf 'bf ïxø ïyø'] bl [dm_bl 'bl ïxø ïyø'] ascii [dm_ascii] char [dm_char] word? [dm_wordp] ] make "oninteractive.list [ list [dm_list '(list ïxø ïyø)'] se [dm_se '(se ïxø ïyø)'] first [dm_first 'first ïxø ïyø'] last [dm_last 'last ïxø ïyø'] bf [dm_bf 'bf ïxø ïyø'] bl [dm_bl 'bl ïxø ïyø'] list? [dm_listp] ] make "oninteractive.compare [ >= [dm_geq] <= [dm_leq] > [dm_grt] < [dm_less] = [dm_equ] <> [dm_nequ] or [dm_or] and [dm_and] not [dm_not] ] make "oninteractive.math [ sqrt [dm_sqrt] exp [dm_exp] ^ [dm_pow] logn [dm_logn] pi [dm_pi] sin [dm_sin] cos [dm_cos] tan [dm_tan] cotan [dm_cotg] arcsin [dm_asin] arccos [dm_acos] arctan [dm_atan] arccotan [dm_acotg] ] make "oninteractive.sets [ ssection [dm_ssec] sunion [dm_suni] sminus [dm_smin] member [dm_mmbr] member? [dm_mmbrp] ] } |
|
|
|