Example use of oninteractive

Help Contents logo Example use of oninteractive
NANP io

Example use of oninteractive

Please, define this list to be as comfortable to you as it is possible. You can also find it at the end of Logo.ELI .

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]
	]
}

NANP io