壹

Size: px

Start display at page:

Download "壹"

充贮申
9 years ago
Views:

1 六參 SA6-031 劉玲 1 27

2 行類立易狀綠狀藍狀狀數狀 () R=0~255 綠狀 () G=(0~255)*256 藍狀 () B=(0~255)*256*256 狀 () A*256*256+A*256+A (R+G+B)/3*(256* ) 數數行易類例不更量理量來數流刺識復兩類龍數了切陋理理不領行類立易療 2 27

3 參雷數見料理料來見了綠藍來綠藍不更雷異不數異見行 machine vision() 3D 量量度理量了綠藍來說類兩狀六狀來說兩狀連狀綠藍度 3 27

4 量論理狀狀類不狀狀狀狀便 () () () 綠 () 藍 () () 2 類識 400~656nm 識 discriminate threshhold 1~2nm 4 27

5 3 狀綠藍 4 5 力料 5 27

6 若來來不不了量來度來綠藍綠藍數便綠藍利列令六例參錄雷力料兩論狀狀力不識不不識不 6 27

7 理綠藍狀力劣異理論行降度若兩欄數狀力例識行綠識行兩兩藍來行兩錄 7 8 狀度 1~2nm 度 5~15 nm 度料類狀度不類狀不說 12 療行行

8 1 Table1 見力不藍異綠 Table2 Various Color Vision Deficies Based on Data in Hunt(1991) Type 2 Male(%) Female(%) Protanopia Deuteranopia Trianopia Cone monochromatism ~ 0 ~ 0 Rod monochromatism Protanomaly Deuteranomaly Trianomaly ~ 0 ~ 0 9 狀綠藍度狀度度度不見 10 狀異若不 8 27

9 識雷異 12 數 13 不 13 見

10 狀狀念綠藍見錄了什龍 14 拉綠藍例了滑滑欄便 10 27

11 15 六 Color Matching Experiment 16: 見錄 RGB RGB 行 RGB 力讀力了更練力見錄易立雷雷不利理令讀兩若不易若不來類雷 11 27

12 立說藍綠量理 18 見錄雷雷不度不不識不類理量 17 說藍綠類 12 27

13 18 理量 19 見錄六雷率數理便理數行數量臨量例數輪廓便量離度來說 // 數理不 R=(Image1->Canvas->Pixels[X][Y]%256; G=(Image1->Canvas->Pixels[X][Y]%65536)/256; B=(Image1->Canvas->Pixels[X][Y]/65536); A=(R+G+B)/3; Image2->Canvas->Pixels[X][Y]=A*256*256+A*256+A; } A=(R+G+B)/3; 量 if ( A>gap ) { Image2->Canvas->Pixels[X][Y]=clRed; Memo1->Lines->Add("X"+IntToStr(X)+" Y"+IntToStr(Y)); break; } }}

14 陸論不不異不狀狀力不異狀狀力不見不狀力不識不不識不狀度度異若度不料類狀度不不狀力北論療行了療來數臨行更了不易利練力烈識不力讀率識令論數更若不列列來 14 27

15 量理量不更更兩類龍數流刺來留樂料來什 1857 留 phonograph 2004 i Pod 來什?i Vision? 來 21 數類 20 復若異數流刺復

16 參料參料理北北年 4.Despopoulos/Silbernagl(2003). Color Atlas of Physiology. Georg Thieme Verlag. 5. Chamelon Image, AquaPets, Mostafa(2006). How I (color blind person) see the world?, 7. University of Utah The Organization of the Retina and Visual sys tem. Retrieved December 12, 2006, from 8. 劉 9..Leeson & Leeson Histology Leeson & lesson A Brief Atlas of Histology 11.[Life]==? 識 16 27

17 錄來說綠藍說列兩說例例度度度 17 27

18 度 18 27

19 19 27

20 20 27

21 21 27

22 錄 2 Chameleon 龍 C++ int X,Y,R,G,B,A; for (X=0;X<Image1->Width;X++) {for (Y=0;Y<Image1->Height;Y++) { R=Image1->Canvas->Pixels[X][Y]%256; G=(Image1->Canvas->Pixels[X][Y]%65536)/ 256; B=Image1->Canvas->Pixels[X][Y]/65536; A=(R+G+B)/3; //no Red Image1->Canvas->Pixels[X][Y]=Image1->Canvas->Pixels[X][Y]-R; //no Green //Image1->Canvas->Pixels[X][Y]=Image1->Canvas->Pixels[X][Y]-G*256; //noblue //Image1->Canvas->Pixels[X][Y]= Image1->Canvas->Pixels[X][Y]-B*256*256; //no GreenRed //Image1->Canvas->Pixels[X][Y]=Image1->Canvas->Pixels[X][Y]--G*256-R; //no BlueRed //Image1->Canvas->Pixels[X][Y]=Image1-> Canvas->Pixels[X][Y]-B*256*256-R; //nogreenblue //Image1->Canvas->Pixels[X][Y]=Image1->Canvas->Pixels[X][Y]-B* 256*256-G*256; //no R G B = Gray Scale //Image1->Canvas->Pixels[X][Y]=A*256*256+A*256+A; }} 錄 3 Color Matching ExperimentC++ #include <vcl.h> #pragma hdrstop #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {} void fastcall TForm1::Edit1Change(TObject *Sender) {Shape1->Brush->Color=StrToInt(Edit1->Text)+256*StrToInt(Edit2->Text)+256*256*StrToInt(Edit3->Text); Shape1->Pen->Color=StrToInt(Edit1->Text)+256*StrToInt(Edit2->Text)+256* 256*StrToInt(Edit3->Text);} void fastcall TForm1::Button1Click(TObject *Sender) {Edit1->Visible=true;Edit2->Visible=true; Edit3->Visible=true; } void fastcall TForm1::Button2Click(TObject *Sender) {Edit1->Visible=false;Edit2->Visible=false; Edit3->Visible=false;} void fastcall TForm1::Edit2Change(TObject *Sender) 22 27

23 {Shape1->Brush->Color=StrToInt(Edit1->Text)+256*StrToInt(Edit2->Text)+256*256*StrToInt(Edit3->Text); Shape1->Pen->Color=StrToInt(Edit1->Text)+256*StrToInt(Edit2->Text)+256*256*StrToInt(Edit3->Text);} void fastcall TForm1::Edit3Change(TObject *Sender) {Shape1->Brush->Color=StrToInt(Edit1->Text)+256*StrToInt(Edit2->Text)+256*256*StrToInt(Edit3->Text); Shape1->Pen->Color=StrToInt(Edit1->Text)+256*StrToInt(Edit2->Text)+256*256*StrToInt(Edit3->Text);} void fastcall TForm1::ScrollBar1Change(TObject *Sender) {Shape2->Brush->Color=StrToInt(ScrollBar1->Position)+256*StrToInt(ScrollBar2->Position)+256*256*StrToInt(Scro llbar3->position); Shape2->Pen->Color=StrToInt(ScrollBar1->Position)+256*StrToInt(ScrollBar2->Position)+256*256*StrToInt(ScrollB ar3->position); Edit4->Text=IntToStr(ScrollBar1->Position);} void fastcall TForm1::ScrollBar2Change(TObject *Sender) {Shape2->Brush->Color=StrToInt(ScrollBar1->Position)+256*StrToInt(ScrollBar2->Position)+256*256*StrToInt(Scro llbar3->position); Shape2->Pen->Color=StrToInt(ScrollBar1->Position)+256*StrToInt( ScrollBar2->Position)+256*256*StrToInt(ScrollB ar3->position); Edit5->Text=IntToStr(ScrollBar2->Position);} void fastcall TForm1::ScrollBar3Change(TObject *Sender) {Shape2->Brush->Color=StrToInt(ScrollBar1->Position)+256*StrToInt(ScrollBar2->Position)+256*256*StrToInt(Scro llbar3->position); Shape2->Pen->Color=StrToInt(ScrollBar1->Position)+256*StrToInt(ScrollBar2->Position)+256*256*StrToInt(ScrollB ar3->position); Edit6->Text=IntToStr(ScrollBar3->Position); } 錄 4 C++ } }}} 錄 5 量 C++ #include <vcl.h> #pragma hdrstop #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" 23 27

24 TForm1 *Form1; fastcall TForm1::TForm1(TComponent* Owner) {} : TForm(Owner) void fastcall TForm1::BitBtn2Click(TObject *Sender) { Memo1->C lear(); Image1->Picture-> Assign(NULL); Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); int X,Y,R,G,B,ax,ay=0,M=0; Edit4->Text=IntToStr(0); for (X=0;X<Image1->Width;X++) {for (Y=0;Y<Image1->Height;Y++) { R=Image1->Canvas->Pixels[X][Y]%256; G=(Image1->Canvas->Pixels[X][Y]%65536)/256; B=Image1->Canvas->Pixels[X][Y]/65536; if (R>StrToInt(Edit3->Text)) { Image1->Canvas->Pixels[X][Y-2]=clRed; } } Memo1->Lines->Add(FloatToStr(X)+" " +FloatToStr(Y)); ax=x; ay=y; break; if(m<y ) { M=Y; break; } Edit4->Text=IntToStr(M); if(strtoint(edit4->text)==154) {Label1->Caption="This is NT$50"; } if(strtoint(edit4->text)= =152) {Label1->Caption="This is NT$1";} if(strtoint(edit4->text)==151) {Label1->Caption="This is NT$5"; } if(strtoint(edit4->text)==153) {Label1->Caption="This is NT$10"; }}} void fastcall TForm1::BitBtn1Click(TObject *Sender) { OpenPictureDialog1->Execute(); Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); 24 27

25 Edit4->Text=IntToStr(0); Label1->Caption=" ";} void fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) {Image1->Canvas->TextOutA(10,10,"R"+IntToStr(Image1->Canvas->Pixels[X][Y]%256)+"G"+IntToStr(Image1->Ca nvas->pixels[x][y]%65536/256)+"b"+inttostr(image1->canvas->pixels[x][y]/65536)+" ");} 錄 6 理量 C++ # include <vcl.h> #pragma hdrstop #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {} int sx,sy; int R,G,B,A; void fastcall TForm1::BitBtn1Click(TObject *Sender) {BitBtn4->Enabled=False; OpenPictureDialog1->Execute(); Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); //Image1->Canvas->TextOutA(10,10,Edit1->Text+Edit2->Text+Edit3->Text+Edit4->Text+Edit5->Text); Edit4->Text=IntToStr(Image1->Picture->Width); Edit5->Text=IntToStr(Image1->Picture->Height); Image1->Height=Image1->Picture->Height; Image1->Width=Image1->Picture->Width; Image2->Canvas->TextOutA(10,10," Celph for MaxilFacial Bones");} void fastcall TForm1::BitBtn2Click(TObject *Sender) {int A,X,Y,R,G,B,R1,B1,G1,A1; Memo1-> Clear(); Image1->Picture->Assign(NULL); Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); int gap=strtoint(edit1->text); // Right to left scan for (int Y=0;Y<504;Y++) { for (int X=355;X>0;X--) 25 27

26 { R=Image2->Canvas->Pixels[X][Y]%256; G=(Image2->Canvas->Pixels[X][Y]%65536)/256; B=(Image2->Canvas->Pixels[X][Y]/65536); A=(R+G+B)/3; if ( A>gap ) { Image2->Canvas->Pixels[X][Y]=clRed; Memo1->Lines->Add("X"+IntToStr(X)+" Y"+IntToStr(Y)); break; } }} Label4->Caption=" Total Points"+IntToStr(Memo1->Lines->Count);} void fastcall TForm1::BitBtn3Click(TObject *Sender) {int X,Y,R,G,B,A; for ( X=0;X<Image1->Width;X++) {for (Y=0;Y<Image1->Height;Y++) { R=Image1->Canvas->Pixels[X][Y]%256; G=(Image1->Canvas->Pixels[X][Y]%65536)/256; B=(Image1->Canvas->Pixels[X][Y]/65536); A=(R+G+B)/3; Image2->Canvas->Pixels[X][Y]=A*256*256+A*256+A; } Image2->Height=Image1->Height; Image2->Width=Image1->Width;}} void fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) {Image2->Canvas->TextOutA(10,10,"X"+IntToStr(X)+" Y"+IntToStr(Y)+" R"+IntToStr(Image2->Canvas->Pixels[X][Y]%256)+" G"+IntToStr((Image2->Canvas->Pixels[X][Y]%65536)/256)+" B"+IntToStr(Image2->Canvas->Pixels[X][Y]/65536)+" RGB");} void fastcall TForm1::BitBtn4Click(TObject *Sender) {Image1->Picture->Assign(NULL); Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); Image2->Canvas->Pen->Color=clYellow; int gap=strtoint(edit1->text); // Right to left scan for (int Y=0;Y<504;Y+=20) { for (int X=355;X>0;X--) { R=Image2->Canvas->Pixels[X][Y]%256; G=(Image2->Canvas->Pixels[X][Y]%65536)/256; B=(Image2->Canvas->Pixels[X][Y]/65536); A=(R+G+B)/3; if ( A>gap ) { Image2->Canvas->Pixels[X][Y]=clRed; Memo1->Lines->Add(IntToStr(X)); 26 27

27 Memo1->Lines->Add(IntToStr(Y)); Image2->Canvas->MoveTo(StrToInt(Label2->Caption),StrToInt(Label3->Caption)); }}} void fastcall TForm1::Image2MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) {Image2->Canvas->Pen->Color=clRed; Image2->Canvas->LineTo(X,Y-3); Label2->Caption=IntToStr(X); Image2->Canvas->LineTo(X-2,Y); break; } Image2->Canvas->MoveTo(X+3,Y); Image2->Canvas->LineTo(X-3,Y); Image2->Canvas->MoveTo(X,Y+3); Label3->Caption=IntToStr(Y); sx=x; sy=y; Image2->Canvas->TextOutA(10,Y-20,"Sella center of hypophyseal fossa"); BitBtn4->Enabled=True;} 錄 B 27 27

"!!!!!!! !!!!!! )!!!!!! (!!!!!!! " # $ % & # $ % ( # $ % ) # $ %! " # $!!!!!! &!!!!!! %!!!!!! $!!!!!! #!!!!!! "!!!!!!! " ) ) $ " ) ) % " ) ) & " )

"!!!!!!! *!!!!!! )!!!!!! (!!!!!!! " # $ % & # $ % ( # $ % ) * # $ %! " # $!!!!!! &!!!!!! %!!!!!! $!!!!!! #!!!!!! "!!!!!!! " ) ) $ " ) ) % " ) ) & " ) ) " ) ) ( " ) ) ) " ) ) * " ) *! " ) * " " ) * # "