function [x, y, typ]=DIGITAL_WRITE_SB(job, arg1, arg2)

x=[];

y=[];

typ=[];

select job

case 'plot' then

case 'getinputs' then

case 'getoutputs' then

case 'getorigin' then

case 'set' then

x=arg1;

graphics=arg1.graphics;

exprs=graphics.exprs

model=arg1.model;

while %t do

[ok,num_pin,num_arduino,exprs]=scicos_getvalue(['Arduino Digital Write parameters' ; 'UNO digital PIN are : 0 to 13.'; 'MEGA digital PIN are : 0 to 53.'],..

[gettext('Digital Pin'),gettext('Arduino card number')],list('vec',1,'vec',1), exprs)

mess=[];

if ~ok then// Cancel

break;

end

if num_arduino<>1 then

mess=[mess ;gettext("Only card 1 can be used with this toolbox version ")];

ok=%f;

end

if num_pin < 2 | num_pin>53

mess=[mess ;_("Digital Pin must be between 2 and 53.")]

ok = %f

end

if ok then// Everything's ok

rpar=[num_pin,num_arduino];

model.rpar.objs(1).model.rpar=rpar;

model.rpar.objs(1).graphics.exprs= string(rpar);

graphics.exprs = string(rpar);

x.model=model;

x.graphics = graphics;

break

else

message(mess);

end

end

case 'define' then

diagram=scicos_diagram();

arduino_comp=ARDUINO_DIGITAL_WRITE('define')

arduino_comp.graphics.pein = 3;

arduino_comp.graphics.peout = 3;

arduino_comp.graphics.pin = 4;

input_port=IN_f('define')

input_port.graphics.exprs=["1"]

input_port.model.ipar=[1]

input_port.graphics.pout=4;

diagram.objs(1)=arduino_comp;

diagram.objs(2)=input_port;

diagram.objs(3)=scicos_link(xx=[0 ; 0],yy=[0 ; 0], ct=[5, -1], from=[1, 1,0], to=[1, 1,1])

diagram.objs(4)=scicos_link(xx=[0 ; 0],yy=[0 ; 0], ct=[1,1], from=[2, 1,0], to=[1, 1,1])

model=scicos_model();

model.sim='csuper'

model.blocktype='h';

model.dep_ut=[%f %f];

model.rpar=diagram

model.in=-1

model.in2=-2

model.intyp=-1

Pin=13; num_arduino=1;

x=standard_define([2 2],model,[],[]);

x.graphics.in_implicit=['E'];

x.graphics.style=["blockWithLabel;verticalLabelPosition=bottom;verticalAlign=top;spacing=-2;displayedLabel=Digital Write Pin %s<br>on card %s"]

x.graphics.exprs=[string(Pin),string(num_arduino)];

end