//GUI let sizeSlider,speedSlider,k_Slider,ca_Slider; let slider_ECG,slider_PCG,slider_AoP,slider_LVP,slider_LAP,slider_HeartSize,slider_Heart_position; let sizeText, speedText; //ラベル用テキスト let sel_disease; let checkbox_darkmode; let darkmode = true; let checkbox_ECG; let checkbox_PCG; let checkbox_AoP; let checkbox_LVP; let checkbox_LAP; let checkbox_Guide; let checkbox_Draw_Heart; let check_ECG = true; let check_PCG = true; let check_AoP = true; let check_LVP = true; let check_LAP = true; let check_Draw_Heart = true; let check_Guide = true; function setup() { // createCanvas(windowWidth,windowHeight); // createCanvas(1000,700); createCanvas(windowWidth,windowHeight); angleMode(DEGREES); //スライダー sizeSlider = createSlider(4, 100, height/50); sizeSlider.position(140, 120); slider_ECG = createSlider(-height/2,height/2,0); slider_ECG.position(140, 180); slider_PCG = createSlider(-height/2,height/2,0); slider_PCG.position(140, 210); slider_AoP = createSlider(-height/2,height/2,0); slider_AoP.position(140, 240); slider_LVP = createSlider(-height/2,height/2,0); slider_LVP.position(140, 270); slider_LAP = createSlider(-height/2,height/2,0); slider_LAP.position(140, 300); slider_Heart_position = createSlider(-height/4,height/4,0); slider_Heart_position.position(140, 330); slider_HeartSize = createSlider(0,200,100); slider_HeartSize.position(140, 360); // speedSlider = createSlider(0, 10, 0); // speedSlider.position(12*px, 5*px); //ラベルテキスト生成 // speedText = createP('スピード'); // speedText.position(2*px, 3*px); //病気セレクタ sel_disease = createSelect(); sel_disease.position(width-260,200); sel_disease.option("正常心電図") sel_disease.option("急性心筋梗塞") sel_disease.option("陳旧性心筋梗塞") sel_disease.selected("正常心電図") sel_disease.changed(DiseaseEvent); k_Slider = createSlider(1, 10, 3.5); k_Slider.position(width-240,290); ca_Slider = createSlider(6, 14, 9.0); ca_Slider.position(width-240,340); //ダークモードのチェックボックス checkbox_darkmode = createCheckbox("ダークモード", true); checkbox_darkmode.position(40,150); checkbox_darkmode.changed(Darkmode); //描画チェックボックス checkbox_Guide = createCheckbox("ガイド線", true); checkbox_Guide.position(180,150); checkbox_Guide.changed(Check_Guide); checkbox_ECG = createCheckbox("心電図", true); checkbox_ECG.position(40,180); checkbox_ECG.changed(Check_ECG); checkbox_PCG = createCheckbox("心音図", true); checkbox_PCG.position(40,210); checkbox_PCG.changed(Check_PCG); checkbox_AoP = createCheckbox("動脈圧", true); checkbox_AoP.position(40,240); checkbox_AoP.changed(Check_AoP); checkbox_LVP = createCheckbox("左室圧", true); checkbox_LVP.position(40,270); checkbox_LVP.changed(Check_LVP); checkbox_LAP = createCheckbox("左房圧", true); checkbox_LAP.position(40,300); checkbox_LAP.changed(Check_LAP); checkbox_Draw_Heart = createCheckbox("心臓描画", true); checkbox_Draw_Heart.position(40,330); checkbox_Draw_Heart.changed(Check_Draw_Heart); } //各変数の初期値宣言　→Draw関数内で再代入する let t = 50 let n = 30 //描画する長さ let clock_A = 0; let clock_bool_A = true; let clock_Ao = true; let size_A = 0; let size_V = 0; // let ww = windowWidth; // let wh = windowHeight; let px = 10; let rr = 0; let amp_P = 1.5 * px; let dul_P = 3 * px; let dul_PQ = 2 * px; let dul_QRS = 2.5 * px; let amp_Q = 1 * px; let amp_R = 10 * px; let amp_S = 1.5 * px; let dul_ST = 4 * px; let dul_T = 4 * px; let amp_T = 2.5 * px; let dul_TU = 2.5 * px; let dul_U = 0.7 * px; let amp_U = 0.2 * px; let add_S = 0 * px; let add_T = 0 * px; let add_QR = 0 * px; let add_U = 0 * px; let PQ_Time = dul_P + dul_PQ; let PJ_Time = PQ_Time + dul_QRS; let PT_Time = PQ_Time + dul_QRS + dul_ST + dul_T; let RR_Time = 20 * px; //心音図 let amp_type1 = 3.1 * px; let amp_type2 = 1.9 * px; let amp_type3 = 0.9 * px; let amp_type4 = 0.6 * px; //電解質　let K = 4.0; let Ca = 9.0; //--------------------------------------------- function draw() { //変数置き場　再代入用 px = sizeSlider.value(); //1コマの値 K = k_Slider.value(); Ca = ca_Slider.value(); RR_Time = 20 * px; dul_P = 3 * px; dul_PQ = 2 * px; dul_QRS = 2.5 * px + 5*K -20; dul_ST = 4 * px -8*Ca +60; dul_T = 4 * px; dul_TU = 2.5 * px; dul_U = 0.7 * px; amp_P = 1.5 * px -3*K; amp_Q = 1 * px; amp_R = 10 * px; amp_S = 1.5 * px +add_S; amp_T = 2.5 * px +add_T + 20*K -80; amp_U = 0.2 * px -K -Ca + 13; let antrum_Time = RR_Time * (dul_P+dul_PQ)/RR_Time let ventricular_Time = RR_Time * (dul_QRS+dul_ST+dul_T)/RR_Time //変数を見やすくするため PQ_Time = dul_P + dul_PQ; PJ_Time = PQ_Time + dul_QRS; PT_Time = PQ_Time + dul_QRS + dul_ST + dul_T; //心音図 amp_type1 = 3.1 * px; amp_type2 = 1.9 * px; amp_type3 = 0.9 * px; amp_type4 = 0.6 * px; //現在の解像度確認 // console.log ("Height/Witdh/current px=" + height +","+ width +","+ height/50); //ここから書き始める--------------------------------- noFill(); if (darkmode === true) { background(0); stroke(255); } if (darkmode === false) { background(180); stroke(0); } //グリッド線 Draw_Grid(); //GUIの背景 { push() ; fill(150); rect(25,120,250,280); //左上 rect(width-300,120,250,280); //右上 textFont("Georgia"); noStroke(); textSize(16); fill("#000000"); text("心臓サイズ",50,380); text("全体サイズ",50,140); pop(); push(); textFont("Georgia"); noStroke(); textSize(18); textAlign(CENTER,CENTER); fill("#000000"); text("シミュレーション",width-210,160); text("電解質異常",width-240,260); text("K",width-260,350); text(k_Slider.value(),width-90,350); text("Ca",width-260,300); text(ca_Slider.value(),width-90,300); pop(); } //心臓描画 if (check_Draw_Heart === true) { push(); //心臓を描く translate(width/2,13*px + slider_Heart_position.value()); Draw_Heart(); pop(); } //ECG if (check_ECG === true) { push();　//ECG { if (darkmode === true) { stroke(0,255,0,100); drawingContext.shadowColor = "#007F0C"; drawingContext.shadowBlur = 35; strokeWeight(3); } if (darkmode === false) { stroke(0); strokeWeight(2); } translate(0,height/2 + 3*px + slider_ECG.value()); beginShape(); vertex(0,0); for(let i=0; i 1000) { t =0; } } //収縮期管理アルゴリズム { //拡張期(true)は足す //収縮期(false)は引く //↓拡張期 if (clock_bool_A === true){ clock_A += px/10; size_A += px * antrum_Time/RR_Time /10; size_V -= px * ventricular_Time/RR_Time /10; } else { //↓収縮期 clock_A -= px/10; size_A -= px * (RR_Time-antrum_Time)/RR_Time /10; size_V += px * (RR_Time-ventricular_Time)/RR_Time /10; } if (clock_A > RR_Time - antrum_Time && clock_bool_A === true){ clock_A = 0 clock_bool_A = !clock_bool_A; size_V = 0; } if (clock_A < -antrum_Time && clock_bool_A === false){ clock_A = 0 clock_bool_A = !clock_bool_A; size_A = 0; } // console.log (clock_A); //clock_Ao アルゴリズム if (clock_bool_A === false && clock_A < -20) { clock_Ao = true; } else { clock_Ao = false; } if (clock_bool_A === true && clock_A < 100 ) { clock_Ao = true; } } } function Draw_P_wave () { vertex(rr-t,0); bezierVertex(rr+dul_P/8-t,0, rr-t,-amp_P, rr+dul_P/2-t,-amp_P); //P波頂点 bezierVertex(rr+dul_P-t,-amp_P, rr+dul_P-dul_P/8-t,0, rr+dul_P-t,0); //P波終わり vertex(rr+dul_P+dul_PQ-t,0); } function Draw_QRS_wave () { vertex(rr-t+PQ_Time+dul_QRS/4,amp_Q+add_QR); vertex(rr-t+PQ_Time+dul_QRS/2.5,-amp_R+add_QR); vertex(rr-t+PQ_Time+dul_QRS/1.3,amp_S); } //ECGガイドもここに function Draw_ST_wave () { vertex(rr-t+PQ_Time+dul_QRS,0 +add_S) //J点 bezierVertex(rr-t+PJ_Time+dul_ST,0 -add_S, rr-t+PJ_Time+dul_ST,0 -add_S, rr-t+PJ_Time+dul_ST,0 -add_T-add_S); //T波始まりまで bezierVertex(rr-t+PJ_Time+dul_ST+dul_T/6,0-add_T, rr-t+PJ_Time+dul_ST,-amp_T-add_T, rr-t+PJ_Time+dul_ST+dul_T/2,-amp_T-add_T); //T波頂点 bezierVertex(rr-t+PT_Time,-amp_T, rr-t+PT_Time-dul_T/6,0, rr-t+PT_Time,0); //T波終わり // vertex(rr+t+ RR_Time - PT_Time,0); //次のP波 if (check_Guide === true) { push(); textFont("Georgia"); noStroke(); textSize(10); textAlign(CENTER,CENTER); if (darkmode === true) { fill("#01AA0F"); } if (darkmode === false) { fill("#000000"); } text("P",rr+dul_P/2-t,-amp_P-px); text("Q",rr-t+PQ_Time+dul_QRS/4,amp_Q+px); text("R",rr-t+PQ_Time+dul_QRS/2.5,-amp_R-px); text("S",rr-t+PQ_Time+dul_QRS/1.3,amp_S+px); text("T",rr-t+PJ_Time+dul_ST+dul_T/2,-amp_T-px); text("U",rr-t+PT_Time+dul_TU+dul_U/2,-amp_U-px/1.5); pop(); } } function Draw_U_wave () { vertex(rr-t+PT_Time+dul_TU,0) //U波始まり bezierVertex(rr-t+PT_Time+dul_TU+dul_U/4,0, rr-t+PT_Time+dul_TU,-amp_U, rr-t+PT_Time+dul_TU+dul_U/2,-amp_U-add_U); //U波頂点 bezierVertex(rr-t+PT_Time+dul_TU+dul_U,-amp_U, rr-t+PT_Time+dul_TU+dul_U-dul_U/4,0, rr-t+PT_Time+dul_TU+dul_U,0); //U波終わり } function Draw_PCG (rr) { if (darkmode === true) { stroke(255,150); } if (darkmode === false) { stroke(0); } beginShape(); vertex(rr-t+0,0); vertex(rr+dul_P-t,0); //P波終わり　IV音 vertex(rr+dul_P-t+dul_P*0.05,amp_type4*0.8); vertex(rr+dul_P-t+dul_P*0.10,-amp_type4*1.0); vertex(rr+dul_P-t+dul_P*0.15,amp_type4*0.7); vertex(rr+dul_P-t+dul_P*0.20,0); vertex(rr-t+PQ_Time+dul_QRS/4,0); //Q波　I音 vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.1,amp_type1*0.4); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.2,-amp_type1*0.6); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.3,amp_type1*1.0); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.4,-amp_type1*1.0); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.5,amp_type1*0.7); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.6,-amp_type1*0.3); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.7,amp_type1*0.9); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.8,-amp_type1*0.8); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.9,amp_type1*0.6); vertex(rr-t+PQ_Time+dul_QRS/4+dul_QRS*1.0,0); vertex(rr-t+PT_Time,0); //T波の終わり　II音 vertex(rr-t+PT_Time+dul_T*0.05,amp_type2*1.0); vertex(rr-t+PT_Time+dul_T*0.10,-amp_type2*1.0); vertex(rr-t+PT_Time+dul_T*0.15,amp_type2*0.7); vertex(rr-t+PT_Time+dul_T*0.20,-amp_type2*0.8); vertex(rr-t+PT_Time+dul_T*0.25,amp_type2*0.9); vertex(rr-t+PT_Time+dul_T*0.30,0); vertex(rr-t+PT_Time+dul_TU,0); //U波始まり　III音 vertex(rr-t+PT_Time+dul_TU+dul_U*0.3,amp_type3*1.0); vertex(rr-t+PT_Time+dul_TU+dul_U*0.6,-amp_type3*1.0); vertex(rr-t+PT_Time+dul_TU+dul_U*0.9,amp_type3*0.7); vertex(rr-t+PT_Time+dul_TU+dul_U*1.2,0); vertex(rr-t+RR_Time,0); endShape (); if (check_Guide === true) { push(); textFont("Georgia"); noStroke(); textSize(10); textAlign(CENTER,CENTER); if (darkmode === true) { fill("#FFFFFF"); } if (darkmode === false) { fill("#000000"); } text("I",rr-t+PQ_Time+dul_QRS/4+dul_QRS*0.5,amp_type1*1.2); text("II",rr-t+PT_Time+dul_T*0.15,amp_type1*1.2); text("III",rr-t+PT_Time+dul_TU+dul_U*0.9,amp_type1*1.2); text("IV",rr+dul_P-t+dul_P*0.10,amp_type1*1.2); pop(); } } function Draw_Aortic_Pressure(rr){ if (darkmode === true) { stroke(255,0,0,150); drawingContext.shadowColor = '#BA0000'; drawingContext.shadowBlur = 30; blendMode(ADD); } if (darkmode === false) { stroke(255,0,0,255); } beginShape(); vertex(rr-t+PQ_Time+dul_QRS,-8*px); //J点=A弁開く bezierVertex(rr-t+PQ_Time+dul_ST/1.5,-11*px, rr-t+PQ_Time+dul_ST,-12*px, rr-t+PJ_Time+dul_ST,-12*px) //T波始まり=peak bezierVertex(rr-t+PT_Time-dul_ST/2,-12*px, rr-t+PT_Time-dul_ST/2,-10*px, rr-t+PT_Time,-9*px) //T波終わり=A弁閉鎖 bezierVertex(rr-t+PT_Time,-9*px, rr-t+PT_Time,-9.5*px, rr-t+PT_Time+px/2,-9.5*px) //Aortic notch bezierVertex(rr-t+PT_Time+dul_TU,-9*px, rr-t+PT_Time+dul_TU,-8*px, rr-t+PQ_Time+dul_QRS+RR_Time,-8*px) //拡張期圧 endShape(); } function Draw_LV_Pressure(rr){ if (darkmode === true) { stroke(255,82,200,100); } if (darkmode === false) { stroke(255,82,200,255); } beginShape(); vertex(rr-t+PQ_Time+dul_QRS,-8*px); //J点=A弁開く bezierVertex(rr-t+PQ_Time+dul_ST/1.5,-11*px, rr-t+PQ_Time+dul_ST,-12*px, rr-t+PJ_Time+dul_ST,-12*px) //T波始まり=peak bezierVertex(rr-t+PT_Time-dul_ST/2,-12*px, rr-t+PT_Time-dul_ST/2,-10*px, rr-t+PT_Time,-9*px) //T波終わり=A弁閉鎖 bezierVertex(rr-t+PT_Time+dul_TU/2,-3*px, rr-t+PT_Time+dul_TU/1.5,-2*px, rr-t+PT_Time+dul_TU,-1*px) //拡張期圧 bezierVertex(rr-t+PT_Time+dul_TU*2,-0.5*px, rr-t+PT_Time+dul_TU/1.5,-0.5*px, rr-t+PQ_Time+dul_QRS/4+RR_Time,-2*px) //Q波直前=LA収縮後 bezierVertex(rr-t+PQ_Time+dul_QRS/2+RR_Time,-0.5*px, rr-t+PQ_Time+dul_QRS/2+RR_Time,-0.5*px, rr-t+PQ_Time+dul_QRS+RR_Time,-8*px) //J点へ endShape(); } function Draw_LA_Pressure(rr){ if (darkmode === true) { stroke(207,206,0,100); } if (darkmode === false) { stroke(207,206,0,255); } beginShape(); vertex(rr-t+PQ_Time+dul_QRS,-2*px); //J点=P弁開く bezierVertex(rr-t+PQ_Time+dul_ST/1.5,-2.5*px, rr-t+PQ_Time+dul_ST,-3*px, rr-t+PJ_Time+dul_ST,-3*px) //T波始まり=peak bezierVertex(rr-t+PT_Time-dul_ST/2,-3*px, rr-t+PT_Time-dul_ST/2,-2.5*px, rr-t+PT_Time,-2*px) //T波終わり=A弁閉鎖 bezierVertex(rr-t+PT_Time+dul_TU/2,-1.5*px, rr-t+PT_Time+dul_TU/1.5,-1.5*px, rr-t+PT_Time+dul_TU,-1*px) //拡張期圧 bezierVertex(rr-t+PT_Time+dul_TU*2,-0.5*px, rr-t+PT_Time+dul_TU/1.5,-0.5*px, rr-t+PQ_Time+dul_QRS/4+RR_Time,-2*px) //Q波直前=LA収縮後 bezierVertex(rr-t+PQ_Time+dul_QRS/2+RR_Time,-0.5*px, rr-t+PQ_Time+dul_QRS/2+RR_Time,-0.5*px, rr-t+PQ_Time+dul_QRS+RR_Time,-2*px) //J点へ endShape(); } function Draw_Heart_Cycle(rr) { push(); strokeWeight(1); drawingContext.setLineDash([3, 3]); if (darkmode === true) { stroke(255,50); } if (darkmode === false) { stroke(0,50); } line(rr-t+PQ_Time+dul_QRS/2.5,-height, rr-t+PQ_Time+dul_QRS/2.5,height) //R波=房室弁閉/収縮開始 line(rr-t+PQ_Time+dul_QRS,-height, rr-t+PQ_Time+dul_QRS,height) //J波=動脈弁開放 line(rr-t+PT_Time,-height, rr-t+PT_Time,height) //T波終わり=動脈弁閉じる line(rr-t+PT_Time+dul_TU,-height, rr-t+PT_Time+dul_TU,height) //U波=房室弁開放 pop(); push(); noStroke(); fill(255,0,0,100); rect(rr-t+PQ_Time+dul_QRS/2.5,0, dul_QRS*0.6+dul_ST+dul_T,30); //収縮期 fill(0,0,255,100); rect(rr-t+PT_Time,0, RR_Time -dul_QRS*0.6-dul_ST-dul_T,30); //拡張期 pop(); push(); textFont("Georgia"); noStroke(); textSize(15); textAlign(CENTER,CENTER); if (darkmode === true) { fill("#FAF2F2"); } if (darkmode === false) { fill("#000000"); } text("収縮期",rr-t+PJ_Time+dul_ST/1.3,16); text("拡張期",rr-t,16); textSize(8); text("動脈弁開",rr-t+PQ_Time+dul_QRS,40); text("動脈弁閉",rr-t+PT_Time,40); text("房室弁開",rr-t+PT_Time+dul_TU,50); text("房室弁閉",rr-t+PQ_Time+dul_QRS/2.5,50); pop(); } function Draw_Heart(){ let hp = 1.5* px * slider_HeartSize.value() / 100; //心臓描画用基準ピクセルサイズ heart pixel // 1hp = 2px ×可変割合 let hmv = map(size_V,-110,45,0,60) //心臓可動域　heart_move_ventricular //size_Aは0-60なのでとりあえず置く //size_V -110-45なので無理やりmap let hma = size_A * 0.5 // console.log(size_V); //なんか時相が合わん・・・ //----------------------------- //主線レイヤー if (darkmode === true) { stroke(255,255,255,255); } if (darkmode === false) { stroke(0); } strokeWeight(3); noFill(); push(); //中央原点座標系描画 push(); //心臓全体塗りレイヤー noStroke(); if (darkmode === true) { fill(255,255,255,100); } if (darkmode === false) { fill(254,220,189,200); } beginShape(); vertex(5*hp,-2*hp);　//LA心基部外膜 bezierVertex(9*hp +hmv*sin(90),0, 11*hp +hmv*sin(120),5*hp +hmv*sin(120), 7*hp +hmv*sin(135),9*hp +hmv*sin(135)); //心尖部外膜 bezierVertex(5*hp +hmv*sin(180),11*hp+hmv*sin(180), -1*hp +hmv*sin(200),10*hp+hmv*sin(200), -5*hp ,6*hp); //RA心基部外膜 vertex(-5*hp,-2*hp); vertex(1*hp,-4*hp); endShape(); pop(); beginShape(); //心外膜 vertex(5*hp,-2*hp);　//LA心基部外膜 bezierVertex(9*hp +hmv*sin(90),0, 11*hp +hmv*sin(120),5*hp +hmv*sin(120), 7*hp +hmv*sin(135),9*hp +hmv*sin(135)); //心尖部外膜 bezierVertex(5*hp +hmv*sin(180),11*hp+hmv*sin(180), -1*hp +hmv*sin(200),10*hp+hmv*sin(200), -5*hp ,6*hp); //RA心基部外膜 endShape(); pop(); //----------------- push(); //LV座標系描画 translate(4*hp,1*hp); push(); //LV塗りレイヤー noStroke(); if (clock_bool_A === true) { fill(255,0,0,250); } if (clock_bool_A === false) { fill(254,0,0,100); } beginShape(); //LV 心内膜 vertex(0.6*hp,-2.7*hp); //LA心内膜基部 bezierVertex(5*hp +hmv*sin(120),2*hp +hmv*sin(120), 4*hp +hmv*sin(130),4*hp +hmv*sin(130), 3*hp +hmv*sin(140),5*hp +hmv*sin(140)) //LV心尖部内膜 bezierVertex(2*hp +hmv*sin(160),6*hp +hmv*sin(160), 1*hp +hmv*sin(180),7*hp +hmv*sin(180), -5*hp,-3*hp) //PA,Ao 中隔基部 Ao側 vertex(-4.2*hp -hma*cos(335)*1,-3.5*hp-hma*cos(335)*0.6 ) //A弁先端 vertex(-4.2*hp +hma*sin(340)*1,-3.5*hp-hma*cos(340)*1 ) vertex(-3.5*hp,-4*hp); endShape(CLOSE); pop(); push(); //Ao塗りレイヤー noStroke(); if (size_A > 20) { fill(255,0,0,255); } else { fill(100,0,0,255); } beginShape(); //Ao　塗り1 vertex(-8.5*hp,-9*hp); //Ao一番上 bezierVertex(-7*hp,-6*hp, -7*hp,-6*hp, -5*hp,-3*hp) //A弁付着部 bezierVertex(-5*hp -hma*cos(310)*0.4,-3*hp -hma*cos(310)*0.2, -4.2*hp -hma*cos(330)*0.8,-3.5*hp -hma*cos(330)*0.6, -4.2*hp -hma*cos(335)*1,-3.5*hp-hma*cos(335)*0.6 ) //A弁先端 vertex(-4.2*hp +hma*sin(340)*1,-3.5*hp-hma*cos(340)*1 ) vertex(-6.7*hp,-10*hp); endShape(CLOSE); beginShape(); //Ao　塗り2 vertex(-6.7*hp,-10*hp); //Ao一番上 bezierVertex(-5.7*hp,-8*hp, -5.7*hp,-8*hp, -3.5*hp,-4*hp) //A弁付着部 bezierVertex(-3.5*hp +hma*sin(355)*0.4,-4*hp -hma*cos(355)*0.2, -4*hp +hma*sin(350)*0.8,-3.5*hp -hma*cos(350)*0.8, -4.2*hp +hma*sin(340)*1,-3.5*hp-hma*cos(340)*1 ) //A弁先端 vertex(-4.2*hp -hma*cos(335)*1,-3.5*hp-hma*cos(335)*0.6 ); vertex(-8.5*hp,-9*hp); endShape(CLOSE); pop(); beginShape(); //LV 心内膜 vertex(0.6*hp,-2.7*hp); //LA心内膜基部 bezierVertex(5*hp +hmv*sin(120),2*hp +hmv*sin(120), 4*hp +hmv*sin(130),4*hp +hmv*sin(130), 3*hp +hmv*sin(140),5*hp +hmv*sin(140)) //LV心尖部内膜 bezierVertex(2*hp +hmv*sin(160),6*hp +hmv*sin(160), 1*hp +hmv*sin(180),7*hp +hmv*sin(180), -5*hp,-3*hp) //PA,Ao 中隔基部 Ao側 endShape(); beginShape(); //Ao - A弁（左) vertex(-8.5*hp,-9*hp); //Ao一番上 bezierVertex(-7*hp,-6*hp, -7*hp,-6*hp, -5*hp,-3*hp) //A弁付着部 bezierVertex(-5*hp -hma*cos(310)*0.4,-3*hp -hma*cos(310)*0.2, -4.2*hp -hma*cos(330)*0.8,-3.5*hp -hma*cos(330)*0.6, -4.2*hp -hma*cos(335)*1,-3.5*hp-hma*cos(335)*0.6 ) //A弁先端 endShape(); beginShape(); //Ao - A弁（右) vertex(-6.7*hp,-10*hp); //Ao一番上 bezierVertex(-5.7*hp,-8*hp, -5.7*hp,-8*hp, -3.5*hp,-4*hp) //A弁付着部 bezierVertex(-3.5*hp +hma*sin(355)*0.4,-4*hp -hma*cos(355)*0.2, -4*hp +hma*sin(350)*0.8,-3.5*hp -hma*cos(350)*0.8, -4.2*hp +hma*sin(340)*1,-3.5*hp-hma*cos(340)*1 ) //A弁先端 endShape(); pop(); //------------------- push(); //LA座標系描画 translate(3*hp,-3*hp); push(); //LA塗りレイヤー noStroke(); if (clock_bool_A === false) { fill(255,0,0,255); } if (clock_bool_A === true) { fill(100,0,0,255); } beginShape(); //LA - M弁(左) vertex(1*hp,-4*hp); //PV 一番上 vertex(0*hp,-3*hp); //PV-LA 接続部 bezierVertex(-1*hp +hma*sin(355),-3*hp +hma*sin(355), -1.5*hp +hma*sin(345),-2.5*hp+hma*sin(345), -2*hp +hma*sin(325)*0.6,-2*hp +hma*sin(325)*0.6) //LA最大のふくらみ bezierVertex(-2.5*hp +hma*sin(310)*0.4,-1.5*hp+hma*sin(310)*0.4 , -2.5*hp +hma*sin(280)*0.2,-1*hp +hma*sin(280)*0.2 , -2.5*hp ,0*hp) //A弁付着部 bezierVertex(-2*hp ,1*hp, -1.7*hp ,1*hp, -1.3*hp ,1.7*hp) //M弁付着部 bezierVertex(-0.5*hp +hmv*cos(210)*0.2 ,1.7*hp -hmv*cos(210)*0.3, 0*hp +hmv*cos(200)*0.3,2.5*hp -hmv*cos(200)*0.4, 0*hp +hmv*cos(190)*0.4,2.5*hp-hmv*cos(190)*0.5) //M弁先端 bezierVertex(0.5*hp +hmv*sin(100)*0.5 ,1.4*hp -hmv*cos(130)*0.5, 0*hp +hmv*sin(110)*0.6,2.0*hp -hmv*cos(150)*0.6, 0*hp +hmv*sin(120)*0.7,2.5*hp-hmv*cos(170)*0.7) //M弁先端 endShape(CLOSE); beginShape(); //PV 分裂してるところ vertex(1.7*hp,-3*hp); //PV 真ん中上 bezierVertex(1*hp,-2.5*hp, 0.8*hp,-2.3*hp, 1*hp,-2*hp); //PV LA流入部 bezierVertex(1.3*hp,-1.7*hp, 1.5*hp,-1.3*hp, 2.5*hp,-2*hp); //PV 真ん中右 vertex(3*hp,-1*hp); //PV 一番右 bezierVertex(2*hp +hma*sin(70),-0.5*hp+hma*sin(70), 1*hp +hma*sin(110),0*hp+hma*sin(110), 2*hp ,1*hp) //LA心基部 vertex(1.5*hp,1.4*hp) //M弁　心基部付着部 bezierVertex(0.5*hp +hmv*sin(100)*0.5 ,1.4*hp -hmv*cos(130)*0.5, 0*hp +hmv*sin(110)*0.6,2.0*hp -hmv*cos(150)*0.6, 0*hp +hmv*sin(120)*0.7,2.5*hp-hmv*cos(170)*0.7) //M弁先端 vertex(0*hp +hmv*sin(120)*0.7,2.5*hp-hmv*cos(170)*0.7);//M弁左先端 vertex(0*hp,-3*hp); endShape(CLOSE); pop(); beginShape(); //LA - M弁(左) vertex(1*hp,-4*hp); //PV 一番上 vertex(0*hp,-3*hp); //PV-LA 接続部 bezierVertex(-1*hp +hma*sin(355),-3*hp +hma*sin(355), -1.5*hp +hma*sin(345),-2.5*hp+hma*sin(345), -2*hp +hma*sin(325)*0.6,-2*hp +hma*sin(325)*0.6) //LA最大のふくらみ bezierVertex(-2.5*hp +hma*sin(310)*0.4,-1.5*hp+hma*sin(310)*0.4 , -2.5*hp +hma*sin(280)*0.2,-1*hp +hma*sin(280)*0.2 , -2.5*hp ,0*hp) //A弁付着部 bezierVertex(-2*hp ,1*hp, -1.7*hp ,1*hp, -1.3*hp ,1.7*hp) //M弁付着部 bezierVertex(-0.5*hp +hmv*cos(210)*0.2 ,1.7*hp -hmv*cos(210)*0.3, 0*hp +hmv*cos(200)*0.3,2.5*hp -hmv*cos(200)*0.4, 0*hp +hmv*cos(190)*0.4,2.5*hp-hmv*cos(190)*0.5) //M弁先端 endShape(); beginShape(); //LA - M弁(右) vertex(3*hp,-1*hp); //PV 一番右 bezierVertex(2*hp +hma*sin(70),-0.5*hp+hma*sin(70), 1*hp +hma*sin(110),0*hp+hma*sin(110), 2*hp ,1*hp) //LA心基部 vertex(1.5*hp,1.4*hp) //M弁　心基部付着部 bezierVertex(0.5*hp +hmv*sin(100)*0.5 ,1.4*hp -hmv*cos(130)*0.5, 0*hp +hmv*sin(110)*0.6,2.0*hp -hmv*cos(150)*0.6, 0*hp +hmv*sin(120)*0.7,2.5*hp-hmv*cos(170)*0.7) //M弁先端 endShape(); beginShape(); //PV 分裂してるところ vertex(1.7*hp,-3*hp); //PV 真ん中上 bezierVertex(1*hp,-2.5*hp, 0.8*hp,-2.3*hp, 1*hp,-2*hp); //PV LA流入部 bezierVertex(1.3*hp,-1.7*hp, 1.5*hp,-1.3*hp, 2.5*hp,-2*hp); //PV 真ん中右 endShape(); pop(); //-------------------- push(); //RV座標系描画 translate(-2*hp,3*hp); push(); //RV塗りレイヤー noStroke(); if (clock_bool_A === true) { fill(0,0,255,250); } if (clock_bool_A === false) { fill(0,0,150,250); } beginShape(); //RV 心内膜 vertex(0.5*hp,-5*hp); //PA,Ao 中隔基部 PA側 bezierVertex(6*hp +hmv*sin(120),4*hp +hmv*sin(120), 6*hp +hmv*sin(130),5.5*hp +hmv*sin(130), 5*hp +hmv*sin(140),5*hp +hmv*sin(140)) //RV心尖部内膜 bezierVertex(3*hp +hmv*sin(160),5*hp +hmv*sin(160), 2*hp +hmv*sin(180),6*hp +hmv*sin(180), -3*hp,2*hp) //RV心基部　内膜側 vertex(-4*hp,0); vertex(-1.5*hp,-5*hp); vertex(-0.5*hp -hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6); vertex(-0.5*hp +hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6 ) //P弁先端 endShape(CLOSE); pop(); push(); //RA系塗り　RAとRVごっちゃ・・・ noStroke(); if (clock_bool_A === false) { fill(0,0,255,255); } if (clock_bool_A === true) { fill(0,0,100,255); } beginShape(); //SVC - IVC - T弁 vertex(-1.5*hp-3*hp,-6*hp-3*hp); //SVC 外側 bezierVertex(-1.5*hp-3*hp +hma*sin(330),-3*hp-3*hp +hma*sin(330), -2*hp-3*hp +hma*sin(310),-3*hp-3*hp +hma*sin(310), -2*hp-3*hp +hma*sin(270),0*hp-3*hp +hma*sin(270)) //RA 外側 bezierVertex(-2*hp-3*hp +hma*sin(240),3*hp-3*hp +hma*sin(240), -1.5*hp-3*hp +hma*sin(210),3*hp-3*hp +hma*sin(210), -1.5*hp-3*hp,7*hp-3*hp) //IVC外側 vertex(-3*hp,4*hp); //IVC vertex(-3*hp,2*hp); //IVC bezierVertex(-3.3*hp,1*hp, -3.3*hp,1*hp, -3.3*hp,0*hp) //T弁付着部 IVC側 bezierVertex(-3*hp ,-1*hp, -2*hp +hmv*cos(220)*0.2,-1*hp -hmv*cos(220)*0.2, -1.5*hp +hmv*cos(220)*0.3,-0.5*hp-hmv*cos(220)*0.3 ) //T弁先端 vertex(-1.5*hp +hmv*cos(315)*0.4,-0.5*hp-hmv*cos(315)*0.4); endShape(CLOSE); beginShape(); //SVC-T弁　→主線太く！ vertex(-1.5*hp-3*hp,-6*hp-3*hp); vertex(-3.5*hp,-9*hp); //SVC bezierVertex(-3*hp,-6*hp, -1.5*hp,-6*hp, -1.5*hp,-4*hp) //RA 内側 bezierVertex(-1.5*hp,-3*hp, -1.5*hp,-2.5*hp, -1.5*hp,-2*hp) //T弁付着部 RA側 bezierVertex(-1.5*hp +hmv*cos(350)*0.1,-1*hp -hmv*cos(350)*0.1, -1.5*hp +hmv*cos(330)*0.2,-1*hp -hmv*cos(330)*0.2, -1.5*hp +hmv*cos(315)*0.4,-0.5*hp-hmv*cos(315)*0.4 ) //T弁先端 vertex(-1.5*hp +hmv*cos(220)*0.3,-0.5*hp-hmv*cos(220)*0.3 ); endShape(CLOSE); pop(); push(); //PA塗り noStroke(); if (size_A > 20) { fill(0,0,255,255); } else { fill(0,0,100,255); } beginShape(); //PA vertex(1*hp,-11.5*hp); //PA一番上 bezierVertex(-2*hp,-6*hp, -1*hp,-8*hp, -1.5*hp,-4*hp) //P弁付着部 = RA内側 bezierVertex(-1.5*hp -hma*cos(330)*0.2,-4*hp -hma*cos(330)*0.2, -1*hp -hma*cos(340)*0.4,-4*hp -hma*cos(340)*0.4, -0.5*hp -hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6 ) //P弁先端 vertex(-0.5*hp +hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6 ); vertex(2*hp,-10*hp); endShape(CLOSE); beginShape(); //PA　その２ vertex(2.5*hp,-10*hp); //PA一番上 bezierVertex(1*hp,-8*hp, 0.5*hp,-7*hp, 0.5*hp,-5*hp) //P弁付着部 bezierVertex(0.5*hp +hma*cos(330)*0.2,-4*hp -hma*cos(330)*0.2, 0.1*hp +hma*cos(340)*0.4,-4*hp -hma*cos(340)*0.4, -0.5*hp +hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6 ) //P弁先端 vertex(-0.5*hp -hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6); vertex(1*hp,-11.5*hp); endShape(CLOSE); pop(); beginShape(); //RV 心内膜 vertex(0.5*hp,-5*hp); //PA,Ao 中隔基部 PA側 bezierVertex(6*hp +hmv*sin(120),4*hp +hmv*sin(120), 6*hp +hmv*sin(130),5.5*hp +hmv*sin(130), 5*hp +hmv*sin(140),5*hp +hmv*sin(140)) //RV心尖部内膜 bezierVertex(3*hp +hmv*sin(160),5*hp +hmv*sin(160), 2*hp +hmv*sin(180),6*hp +hmv*sin(180), -3*hp,2*hp) //RV心基部　内膜側 endShape(); beginShape(); //IVC-T弁　→主線太く！ vertex(-3*hp,4*hp); //IVC vertex(-3*hp,2*hp); //IVC bezierVertex(-3.3*hp,1*hp, -3.3*hp,1*hp, -3.3*hp,0*hp) //T弁付着部 IVC側 bezierVertex(-3*hp ,-1*hp, -2*hp +hmv*cos(220)*0.2,-1*hp -hmv*cos(220)*0.2, -1.5*hp +hmv*cos(220)*0.3,-0.5*hp-hmv*cos(220)*0.3 ) //T弁先端 endShape(); beginShape(); //SVC-T弁　→主線太く！ vertex(-3.5*hp,-9*hp); //SVC bezierVertex(-3*hp,-6*hp, -1.5*hp,-6*hp, -1.5*hp,-4*hp) //RA 内側 bezierVertex(-1.5*hp,-3*hp, -1.5*hp,-2.5*hp, -1.5*hp,-2*hp) //T弁付着部 RA側 bezierVertex(-1.5*hp +hmv*cos(350)*0.1,-1*hp -hmv*cos(350)*0.1, -1.5*hp +hmv*cos(330)*0.2,-1*hp -hmv*cos(330)*0.2, -1.5*hp +hmv*cos(315)*0.4,-0.5*hp-hmv*cos(315)*0.4 ) //T弁先端 endShape(); beginShape(); //PA - P弁（左) vertex(1*hp,-11.5*hp); //PA一番上 bezierVertex(-2*hp,-6*hp, -1*hp,-8*hp, -1.5*hp,-4*hp) //P弁付着部 = RA内側 bezierVertex(-1.5*hp -hma*cos(330)*0.2,-4*hp -hma*cos(330)*0.2, -1*hp -hma*cos(340)*0.4,-4*hp -hma*cos(340)*0.4, -0.5*hp -hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6 ) //P弁先端 endShape(); beginShape(); //PA - P弁（右) vertex(2.5*hp,-10*hp); //PA一番上 bezierVertex(1*hp,-8*hp, 0.5*hp,-7*hp, 0.5*hp,-5*hp) //P弁付着部 bezierVertex(0.5*hp +hma*cos(330)*0.2,-4*hp -hma*cos(330)*0.2, 0.1*hp +hma*cos(340)*0.4,-4*hp -hma*cos(340)*0.4, -0.5*hp +hma*cos(350)*0.6,-5*hp-hma*cos(350)*0.6 ) //P弁先端 endShape(); pop(); //-------------------- push(); //RA座標系描画 translate(-5*hp,0); beginShape(); //IVC 外側　→主線を太く！ vertex(-1.5*hp,-6*hp); //SVC 外側 bezierVertex(-1.5*hp +hma*sin(330),-3*hp +hma*sin(330), -2*hp +hma*sin(310),-3*hp +hma*sin(310), -2*hp +hma*sin(270),0*hp +hma*sin(270)) //RA 外側 bezierVertex(-2*hp +hma*sin(240),3*hp +hma*sin(240), -1.5*hp +hma*sin(210),3*hp +hma*sin(210), -1.5*hp,7*hp) //IVC外側 endShape(); pop(); //原点座標系　刺激電動系 push(); stroke(255,255,0,100); blendMode(ADD); push(); if (size_A > 65 ) { stroke(255,255,0,255); fill(255,255,0,255); drawingContext.shadowColor = '#FFF725'; drawingContext.shadowBlur = 50; } else { stroke(255,255,0,150); fill(255,255,0,50); } //洞房結節 ellipse(-4.8*hp, -3*hp, 0.5*hp, 1*hp); pop(); push(); if (size_A > 30 && size_A <60 && clock_bool_A === false) { stroke(255,255,0,255); drawingContext.shadowColor = '#FFF725'; drawingContext.shadowBlur = 50; } else { stroke(255,255,0,50); } //RA beginShape(); vertex(-4.8*hp, -3*hp) bezierVertex(-5*hp, -2*hp, -5*hp, -1*hp, -1*hp, -0.8*hp); endShape(); beginShape(); vertex(-4.8*hp, -3*hp) bezierVertex(-4*hp, -3*hp, -1*hp, -2*hp, -1*hp, -0.8*hp); endShape(); beginShape(); vertex(-4.8*hp, -3*hp) bezierVertex(-4*hp, -2*hp, -2*hp, -1*hp, -1*hp, -0.8*hp); endShape(); pop(); //房室結節 push(); if (size_A > 10 && size_A <40 && clock_bool_A === false) { stroke(255,255,0,255); fill(255,255,0,255); drawingContext.shadowColor = '#FFF725'; drawingContext.shadowBlur = 50; } else { stroke(255,255,0,50); fill(255,255,0,50); } ellipse(-1*hp, -0.8*hp, 0.4*hp, 0.6*hp); pop(); //ヒス束 push(); if (size_A > 0 && size_A <30 && clock_bool_A === false) { stroke(255,255,0,255); fill(255,255,0,255); } else { stroke(255,255,0,50); } beginShape(); vertex(-1*hp, -0.8*hp) bezierVertex(-0.2*hp, -0.4*hp, -0.2*hp, -0.1*hp, 0,0); endShape(); pop(); //プルキンエ線維1 push(); if (size_A <10 && clock_bool_A === true) { stroke(255,255,0,255); drawingContext.shadowColor = '#FFF725'; drawingContext.shadowBlur = 50; } else { stroke(255,255,0,50); } beginShape(); vertex(0,0) bezierVertex(1*hp, 2*hp, 2*hp, 3*hp, 2.5*hp,4*hp); endShape(); beginShape(); vertex(0,0) bezierVertex(1.5*hp, 2*hp, 2*hp, 3*hp, 2.7*hp,4*hp); endShape(); pop(); //プルキンエ線維2 push(); if (size_A <30 && size_A >10 && clock_bool_A === true) { stroke(255,255,0,255); drawingContext.shadowColor = '#FFF725'; drawingContext.shadowBlur = 50; } else { stroke(255,255,0,50); } beginShape(); vertex(2.5*hp,4*hp) bezierVertex(4*hp, 7*hp, 6*hp+hmv*sin(130), 10*hp+hmv*sin(130), 3*hp +hmv*sin(150),9*hp +hmv*sin(150)); endShape(); beginShape(); vertex(2.7*hp,4*hp) bezierVertex(4*hp+hmv*sin(50), 7*hp+hmv*sin(50), 6*hp+hmv*sin(130), 8*hp+hmv*sin(130), 7*hp+hmv*sin(130),7.5*hp+hmv*sin(130)); endShape(); pop(); //プルキンエ線維3 push(); if (size_A <50 && size_A >25 && clock_bool_A === true) { stroke(255,255,0,255); drawingContext.shadowColor = '#FFF725'; drawingContext.shadowBlur = 50; } else { stroke(255,255,0,50); } beginShape(); //左 vertex(3*hp +hmv*sin(150),9*hp +hmv*sin(150)) bezierVertex(2*hp +hmv*sin(160), 9*hp +hmv*sin(160), 0*hp+hmv*sin(170), 9*hp+hmv*sin(170), -2*hp+hmv*sin(180),8*hp+hmv*sin(180)); endShape(); beginShape(); vertex(7*hp+hmv*sin(130),7.5*hp+hmv*sin(130)) bezierVertex(8*hp+hmv*sin(140), 7*hp+hmv*sin(140), 8.5*hp+hmv*sin(130), 6*hp+hmv*sin(130), 8.5*hp+hmv*sin(120),3*hp+hmv*sin(120)); endShape(); pop(); pop(); } function Write_Title() { if (darkmode === true) { drawingContext.shadowColor = '#FF0000'; drawingContext.shadowBlur = 10; } if (darkmode === false) { drawingContext.shadowColor = '#FFFFFF'; drawingContext.shadowBlur = 30; } textFont("Georgia"); noStroke(); // textSize(10*px); textSize(height/5); textAlign(CENTER,CENTER); fill("#FF0000"); text("Life",-width/4,height/12); text("Line",width/4,height/12); } function Draw_Title_ECG(rr,t){ beginShape(); vertex(rr-t,0); bezierVertex(rr+dul_P/8-t,0, rr-t,-amp_P, rr+dul_P/2-t,-amp_P); //P波頂点 bezierVertex(rr+dul_P-t,-amp_P, rr+dul_P-dul_P/8-t,0, rr+dul_P-t,0); //P波終わり vertex(rr+dul_P+dul_PQ-t,0); vertex(rr-t+PQ_Time+dul_QRS/4,amp_Q); vertex(rr-t+PQ_Time+dul_QRS/2.5,-amp_R); vertex(rr-t+PQ_Time+dul_QRS/1.3,amp_S); vertex(rr-t+PQ_Time+dul_QRS,0) //J点 bezierVertex(rr-t+PJ_Time+dul_ST,0, rr-t+PJ_Time+dul_ST,0, rr-t+PJ_Time+dul_ST,0); //T波始まりまで bezierVertex(rr-t+PJ_Time+dul_ST+dul_T/6,0, rr-t+PJ_Time+dul_ST,-amp_T, rr-t+PJ_Time+dul_ST+dul_T/2,-amp_T); //T波頂点 bezierVertex(rr-t+PT_Time,-amp_T, rr-t+PT_Time-dul_T/6,0, rr-t+PT_Time,0); //T波終わり vertex(rr-t+PT_Time+dul_TU,0) //U波始まり bezierVertex(rr-t+PT_Time+dul_TU+dul_U/4,0, rr-t+PT_Time+dul_TU,-amp_U, rr-t+PT_Time+dul_TU+dul_U/2,-amp_U); //U波頂点 bezierVertex(rr-t+PT_Time+dul_TU+dul_U,-amp_U, rr-t+PT_Time+dul_TU+dul_U-dul_U/4,0, rr-t+PT_Time+dul_TU+dul_U,0); //U波終わり vertex(rr-t+RR_Time,0); endShape(); } function Draw_Vesier_Heart() { let his = height/35 //heart_icon_sizeの略 let icon_size = map(size_A,0,4*px,0,his/2) bezier(0,-1.5*his-icon_size, 2*his+icon_size*sin(30),-3*his-icon_size*cos(30), 3.5*his+icon_size*sin(30),0, 0,1.5*his+icon_size) bezier(0,-1.5*his-icon_size, -2*his-icon_size*sin(30),-3*his-icon_size*cos(30), -3.5*his-icon_size*sin(30),0, 0,1.5*his+icon_size) //console.log(size_A); } function Draw_Grid() { push(); if (darkmode === true) { stroke(255,20); } if (darkmode === false) { stroke(255,120,125,255); } for(let i=0; i

#＃tau-p5-2023a