
2ʂ̕\

Tv

DCLł́A2ʏœl}Eʂ킯}ExNg̕\ȂB




l}

2zŗ^f[^́ATu[`DclDrawContourĂׂΓl
\邱ƂłB

`̓[U[WnłȂ̂ŁADclDrawContourĂԑOɐKϊ
葱iq_W̐ݒȂ΂ȂȂB
iq_W͒ʏDclSetWindowŐݒ肵͈͂ςɓԊuŐݒ肵A
1EA2ɌĐݒ肳B
ႦΑ傫(nx,ny)2zP̏ꍇAP(1,1)AP(nx,ny)E
悤ȓԊůiq_WɂȂB

iq_WȊÔ̂ɐݒ肷ɂ??߂QƁB
iq_sԊuɂA͈͂ςɕ`Ȃ悤ɂA
㉺EЂԂĕ`ƂȂǂłB
Kϊ̐ݒŒn}ew肷΁An}ɓl}ƂłB

DclDrawContour̈ɂ͎2z^B
z̈ꕔɂ́Aɕz^΂悢B

l̒l͎IɌ肳BύXƂ??߂QƁB
}̉ɂ́Al̒l̊Ԋu\B




ʂ킯}

DclShadeContourp΁Al͈̔͂ɂVF[hAFh
邱ƂłB
Ȃɂݒ肵Ȃ΁Al̗̈Ɏΐ̃VF[hB



xNg

xNg}ɂ́AxNgxAyꂼɂ2zpӂA
Tu[`DclDrawVectorsŕ\B
iq_W̐ݒ͓l}ƓłB

ݒ肵Ȃ΁AxNg̖̒͊iq_Ԋu𒴂Ȃ悤I
XP[Ot@N^[vZAɏ悶ăxNg`B
蓮Őݒ肵ꍇ??߂QƁB


DclDrawVector͒n}eɑΉĂȂB
`[`[vł܂킵ĂΓl̂ƂłB


xNg\̐ݒ

XP[Ot@N^[́Ap[^'ENABLE_VECTOR_NORMALIZING'(l.true.)
.false.ɂƎ蓮Őݒ肷邱ƂłB
l̓p[^'VECTOR_SCALING_FACTOR_X''VECTOR_SCALING_FACTOR_Y'Őݒ肷B
e̒Pʂ͐KWnɂPʂŕ\B
Ƃ΁A'VECTOR_SCALING_FACTOR_X'0.025A'VECTOR_SCALING_FACTOR_Y'0.05
ɐݒ肷ƁAxNg(U,V)=(4.,1.)͐KWn(0.1,0.05)̑傫̃xNg
Ƃĕ\B

p[^'DRAW_UNIT_VECTOR'(l.false.).true.ɂƃjbgxNg
`BjbgxNg̑傫EʒuE^Cg̓p[^ŕύXłB
傫̓[U[WnłKWnłwłB
NbsOLɂĂƃjbgxNg\Ȃ̂
ӂKvB

}̉ɕ`bZ[ẂAjbgxNg`ȂƂɂ̓XP[O
t@N^[AjbgxNg`Ƃɂ͂̑傫\B


iq_W̐ݒ

DclDrawContour, DclShadeContour, DclDrawVectorsŗpiq_W


liq_̎舵



