1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#########################################################################################
# Package HiPi::Interface::EPaper::Waveshare::EPD212X104
# Description : Control Monochrome Epaper Displays
# Copyright : Copyright (c) 2018 Mark Dootson
# License : This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#########################################################################################
package HiPi::Interface::EPaper::Waveshare::EPD212X104;
#########################################################################################
use strict;
use warnings;
use parent qw( HiPi::Interface::EPaper::TypeB);
use HiPi qw( :rpi :spi :epaper );
use Carp;
__PACKAGE__->create_accessors( qw( ) );
our $VERSION ='0.81';
use constant {
POWER_OFF => 0x02,
DEEP_SLEEP => 0x07,
};
sub _create {
my( $class, %params ) = @_;
$params{device_width} = 104;
$params{device_height} = 212;
$params{offsetx} = 0;
$params{is_tri_colour} = 1;
$params{frame_1_bpp} = EPD_FRAME_BPP_1;
$params{frame_2_bpp} = EPD_FRAME_BPP_1;
$params{frame_1_type} = EPD_FRAME_TYPE_BLACK;
$params{frame_2_type} = EPD_FRAME_TYPE_COLOUR;
$params{frame_1_invert} = 0;
$params{frame_2_invert} = 0;
$params{rotation} //= 90;
$params{can_partial} = 0;
$params{busy_state} = RPI_LOW;
$params{power_setting_bytes} = [];
$params{booster_soft_start_bytes} = [ 0x17, 0x17, 0x17 ];
$params{panel_setting_bytes} = [ 0x8F ];
$params{vcom_and_data_byte} = 0x37; #Recommended
$params{border_control} = EPD_BORDER_WHITE;
$params{pll_control_bytes} = [];
$params{tcon_resolution_bytes} = [ 0x68, 0x00, 0xD4 ];
$params{vcm_dc_setting_bytes} = [];
$params{vcom_and_data_shutdown} = 0x17;
$params{lut_vcom0} = [];
$params{lut_w} = [];
$params{lut_b} = [];
$params{lut_g1} = [];
$params{lut_g2} = [];
$params{lut_vcom1} = [];
$params{lut_red0} = [];
$params{lut_red1} = [];
my $self = $class->SUPER::_create( %params );
return $self;
}
sub display_sleep {
my $self = shift;
return if $self->_in_deep_sleep();
$self->send_command(POWER_OFF);
$self->wait_for_idle();
$self->send_command(DEEP_SLEEP, 0xA5);
$self->_in_deep_sleep(1);
}
1;
__END__
|
